﻿Imports System.Data.SqlClient
Public Class frmEvaluacionesFull
    Dim IDEVALUACION As Integer = 0
    Dim Bitacora As New clsActividad
    Dim cont As Integer
    Dim cont2 As Integer
    Dim limite As Integer
    Dim licencia As Double
    Dim tarjeton As Double
    Dim uniformes As Double
    Dim limpieza As Double
    Dim vueltas As Double
    Dim turnos As Double
    Dim frecuencia As Double
    Dim disciplina As Double
    Dim liquidacio As Double
    Dim Rendimiento As Double
    Dim Cuidado As Double
    Dim Manejo As Double
    Dim Trato As Double
    Dim Disponibilidad As Double
    Dim totalperiodo(12) As Double
    Dim periodos As Integer
    Dim esCapturado As Double
    Dim j As Integer = 0
    Dim EvaDetalle As New clsEvaluacionFullDetalle
    Dim EvaTotales As New clsEvaluacionFullTotales
    Dim periodoR1 As Boolean
    Dim periodoR2 As Boolean
    Dim periodoR3 As Boolean
    Dim periodoR4 As Boolean
    Dim periodoR5 As Boolean
    Dim periodoR6 As Boolean
    Dim periodoR7 As Boolean
    Dim periodoR8 As Boolean
    Dim periodoR9 As Boolean
    Dim periodoR10 As Boolean
    Dim periodoR11 As Boolean
    Dim periodoR12 As Boolean

    Private Sub eva1_ToggleStateChanged(ByVal sender As System.Object, ByVal args As Telerik.WinControls.UI.StateChangedEventArgs) Handles eva1.ToggleStateChanged
        If Me.eva1.Checked = True Then
            periodos = periodos + 1
            lic1.Checked = True
            tar1.Checked = True
            uni1.Checked = True
            lim1.Checked = True
            vue1.Checked = True
            tur1.Checked = True
            fre1.Checked = True
            dic1.Checked = True
            liq1.Checked = True
            ren1.Checked = True
            cui1.Checked = True
            man1.Checked = True
            tra1.Checked = True
            pon1.Checked = True
            periodoR1 = True




        Else
            periodos = periodos - 1
            lic1.Checked = False
            tar1.Checked = False
            uni1.Checked = False
            lim1.Checked = False
            vue1.Checked = False
            tur1.Checked = False
            fre1.Checked = False
            dic1.Checked = False
            liq1.Checked = False
            ren1.Checked = False
            cui1.Checked = False
            man1.Checked = False
            tra1.Checked = False
            pon1.Checked = False


        End If
    End Sub

    Private Sub eva2_ToggleStateChanged(ByVal sender As System.Object, ByVal args As Telerik.WinControls.UI.StateChangedEventArgs) Handles eva2.ToggleStateChanged
        If Me.eva2.Checked = True Then
            periodos = periodos + 1
            lic2.Checked = True
            tar2.Checked = True
            uni2.Checked = True
            lim2.Checked = True
            vue2.Checked = True
            tur2.Checked = True
            frec2.Checked = True
            dic2.Checked = True
            liq2.Checked = True
            ren2.Checked = True
            cui2.Checked = True
            man2.Checked = True
            tra2.Checked = True
            pon2.Checked = True
            periodoR2 = True


        Else
            periodos = periodos - 1
            lic2.Checked = False
            tar2.Checked = False
            uni2.Checked = False
            lim2.Checked = False
            vue2.Checked = False
            tur2.Checked = False
            frec2.Checked = False
            dic2.Checked = False
            liq2.Checked = False
            ren2.Checked = False
            cui2.Checked = False
            man2.Checked = False
            tra2.Checked = False
            pon2.Checked = False
        End If
    End Sub

    Private Sub eva3_ToggleStateChanged(ByVal sender As System.Object, ByVal args As Telerik.WinControls.UI.StateChangedEventArgs) Handles eva3.ToggleStateChanged
        If Me.eva3.Checked = True Then
            periodos = periodos + 1
            lic3.Checked = True
            tar3.Checked = True
            uni3.Checked = True
            lim3.Checked = True
            vue3.Checked = True
            tur3.Checked = True
            fre3.Checked = True
            dic3.Checked = True
            liq3.Checked = True
            ren3.Checked = True
            cui3.Checked = True
            man3.Checked = True
            tra3.Checked = True
            pon3.Checked = True
            periodoR3 = True


        Else
            periodos = periodos - 1
            lic3.Checked = False
            tar3.Checked = False
            uni3.Checked = False
            lim3.Checked = False
            vue3.Checked = False
            tur3.Checked = False
            fre3.Checked = False
            dic3.Checked = False
            liq3.Checked = False
            ren3.Checked = False
            cui3.Checked = False
            man3.Checked = False
            tra3.Checked = False
            pon3.Checked = False
        End If
    End Sub

    Private Sub eva4_ToggleStateChanged(ByVal sender As System.Object, ByVal args As Telerik.WinControls.UI.StateChangedEventArgs) Handles eva4.ToggleStateChanged
        If Me.eva4.Checked = True Then
            periodos = periodos + 1
            lic4.Checked = True
            tar4.Checked = True
            uni4.Checked = True
            lim4.Checked = True
            vue4.Checked = True
            tur4.Checked = True
            fre4.Checked = True
            dic4.Checked = True
            liq4.Checked = True
            ren4.Checked = True
            cui4.Checked = True
            man4.Checked = True
            tra4.Checked = True
            pon4.Checked = True
            periodoR4 = True

        Else
            periodos = periodos - 1
            lic4.Checked = False
            tar4.Checked = False
            uni4.Checked = False
            lim4.Checked = False
            vue4.Checked = False
            tur4.Checked = False
            fre4.Checked = False
            dic4.Checked = False
            liq4.Checked = False
            ren4.Checked = False
            cui4.Checked = False
            man4.Checked = False
            tra4.Checked = False
            pon4.Checked = False
        End If
    End Sub

    Private Sub eva5_ToggleStateChanged(ByVal sender As System.Object, ByVal args As Telerik.WinControls.UI.StateChangedEventArgs) Handles eva5.ToggleStateChanged
        If Me.eva5.Checked = True Then
            periodos = periodos + 1
            lic5.Checked = True
            tar5.Checked = True
            uni5.Checked = True
            lim5.Checked = True
            vue5.Checked = True
            tur5.Checked = True
            fre5.Checked = True
            dic5.Checked = True
            liq5.Checked = True
            ren5.Checked = True
            cui5.Checked = True
            man5.Checked = True
            tra5.Checked = True
            pon5.Checked = True
            periodoR5 = True

        Else
            periodos = periodos - 1
            lic5.Checked = False
            tar5.Checked = False
            uni5.Checked = False
            lim5.Checked = False
            vue5.Checked = False
            tur5.Checked = False
            fre5.Checked = False
            dic5.Checked = False
            liq5.Checked = False
            ren5.Checked = False
            cui5.Checked = False
            man5.Checked = False
            tra5.Checked = False
            pon5.Checked = False
        End If
    End Sub

    Private Sub eva6_ToggleStateChanged(ByVal sender As System.Object, ByVal args As Telerik.WinControls.UI.StateChangedEventArgs) Handles eva6.ToggleStateChanged
        If Me.eva6.Checked = True Then
            periodos = periodos + 1
            lic6.Checked = True
            tar6.Checked = True
            uni6.Checked = True
            lim6.Checked = True
            vue6.Checked = True
            tur6.Checked = True
            fre6.Checked = True
            dic6.Checked = True
            liq6.Checked = True
            ren6.Checked = True
            cui6.Checked = True
            man6.Checked = True
            tra6.Checked = True
            pon6.Checked = True
            periodoR6 = True


        Else
            periodos = periodos - 1
            lic6.Checked = False
            tar6.Checked = False
            uni6.Checked = False
            lim6.Checked = False
            vue6.Checked = False
            tur6.Checked = False
            fre6.Checked = False
            dic6.Checked = False
            liq6.Checked = False
            ren6.Checked = False
            cui6.Checked = False
            man6.Checked = False
            tra6.Checked = False
            pon6.Checked = False


        End If
    End Sub

    Private Sub eva7_ToggleStateChanged(ByVal sender As System.Object, ByVal args As Telerik.WinControls.UI.StateChangedEventArgs) Handles eva7.ToggleStateChanged
        If Me.eva7.Checked = True Then
            periodos = periodos + 1
            lic7.Checked = True
            tar7.Checked = True
            uni7.Checked = True
            lim7.Checked = True
            vue7.Checked = True
            tur7.Checked = True
            fre7.Checked = True
            dic7.Checked = True
            liq7.Checked = True
            ren7.Checked = True
            cui7.Checked = True
            man7.Checked = True
            tra7.Checked = True
            pon7.Checked = True
            periodoR7 = True


        Else
            periodos = periodos - 1
            lic7.Checked = False
            tar7.Checked = False
            uni7.Checked = False
            lim7.Checked = False
            vue7.Checked = False
            tur7.Checked = False
            fre7.Checked = False
            dic7.Checked = False
            liq7.Checked = False
            ren7.Checked = False
            cui7.Checked = False
            man7.Checked = False
            tra7.Checked = False
            pon7.Checked = False


        End If
    End Sub

    Private Sub eva8_ToggleStateChanged(ByVal sender As System.Object, ByVal args As Telerik.WinControls.UI.StateChangedEventArgs) Handles eva8.ToggleStateChanged
        If Me.eva8.Checked = True Then
            periodos = periodos + 1
            lic8.Checked = True
            tar8.Checked = True
            uni8.Checked = True
            lim8.Checked = True
            vue8.Checked = True
            tur8.Checked = True
            fre8.Checked = True
            dic8.Checked = True
            liq8.Checked = True
            ren8.Checked = True
            cui8.Checked = True
            man8.Checked = True
            tra8.Checked = True
            pon8.Checked = True
            periodoR8 = True


        Else
            periodos = periodos + 1
            lic8.Checked = False
            tar8.Checked = False
            uni8.Checked = False
            lim8.Checked = False
            vue8.Checked = False
            tur8.Checked = False
            fre8.Checked = False
            dic8.Checked = False
            liq8.Checked = False
            ren8.Checked = False
            cui8.Checked = False
            man8.Checked = False
            tra8.Checked = False
            pon8.Checked = False
        End If
    End Sub

    Private Sub eva9_ToggleStateChanged(ByVal sender As System.Object, ByVal args As Telerik.WinControls.UI.StateChangedEventArgs) Handles eva9.ToggleStateChanged
        If Me.eva9.Checked = True Then
            periodos = periodos + 1
            lic9.Checked = True
            tar9.Checked = True
            uni9.Checked = True
            lim9.Checked = True
            vue9.Checked = True
            tur9.Checked = True
            fre9.Checked = True
            dic9.Checked = True
            liq9.Checked = True
            ren9.Checked = True
            cui9.Checked = True
            man9.Checked = True
            tra9.Checked = True
            pon9.Checked = True
            periodoR9 = True

        Else
            periodos = periodos - 1
            lic9.Checked = False
            tar9.Checked = False
            uni9.Checked = False
            lim9.Checked = False
            vue9.Checked = False
            tur9.Checked = False
            fre9.Checked = False
            dic9.Checked = False
            liq9.Checked = False
            ren9.Checked = False
            cui9.Checked = False
            man9.Checked = False
            tra9.Checked = False
            pon9.Checked = False
        End If
    End Sub

    Private Sub eva10_ToggleStateChanged(ByVal sender As System.Object, ByVal args As Telerik.WinControls.UI.StateChangedEventArgs) Handles eva10.ToggleStateChanged
        If Me.eva10.Checked = True Then
            periodos = periodos + 1
            lic10.Checked = True
            tar10.Checked = True
            uni10.Checked = True
            lim10.Checked = True
            vue10.Checked = True
            tur10.Checked = True
            fre10.Checked = True
            dic10.Checked = True
            liq10.Checked = True
            ren10.Checked = True
            cui10.Checked = True
            man10.Checked = True
            tra10.Checked = True
            pon10.Checked = True
            periodoR10 = True

        Else
            periodos = periodos - 1
            lic10.Checked = False
            tar10.Checked = False
            uni10.Checked = False
            lim10.Checked = False
            vue10.Checked = False
            tur10.Checked = False
            fre10.Checked = False
            dic10.Checked = False
            liq10.Checked = False
            ren10.Checked = False
            cui10.Checked = False
            man10.Checked = False
            tra10.Checked = False
            pon10.Checked = False
        End If
    End Sub

    Private Sub eva11_ToggleStateChanged(ByVal sender As System.Object, ByVal args As Telerik.WinControls.UI.StateChangedEventArgs) Handles eva11.ToggleStateChanged
        If Me.eva11.Checked = True Then
            periodos = periodos + 1
            lic11.Checked = True
            tar11.Checked = True
            uni11.Checked = True
            lim11.Checked = True
            vue11.Checked = True
            tur11.Checked = True
            fre11.Checked = True
            dic11.Checked = True
            liq11.Checked = True
            ren11.Checked = True
            cui11.Checked = True
            man11.Checked = True
            tra11.Checked = True
            pon11.Checked = True
            periodoR11 = True

        Else
            periodos = periodos - 1
            lic11.Checked = False
            tar11.Checked = False
            uni11.Checked = False
            lim11.Checked = False
            vue11.Checked = False
            tur11.Checked = False
            fre11.Checked = False
            dic11.Checked = False
            liq11.Checked = False
            ren11.Checked = False
            cui11.Checked = False
            man11.Checked = False
            tra11.Checked = False
            pon11.Checked = False
        End If
    End Sub

    Private Sub eva12_ToggleStateChanged(ByVal sender As System.Object, ByVal args As Telerik.WinControls.UI.StateChangedEventArgs) Handles eva12.ToggleStateChanged
        If Me.eva12.Checked = True Then
            periodos = periodos + 1
            lic12.Checked = True
            tar12.Checked = True
            uni12.Checked = True
            lim12.Checked = True
            vue12.Checked = True
            tur12.Checked = True
            fre12.Checked = True
            dic12.Checked = True
            liq12.Checked = True
            ren12.Checked = True
            cui12.Checked = True
            man12.Checked = True
            tra12.Checked = True
            pon12.Checked = True
            periodoR12 = True

        Else
            periodos = periodos - 1
            lic12.Checked = False
            tar12.Checked = False
            uni12.Checked = False
            lim12.Checked = False
            vue12.Checked = False
            tur12.Checked = False
            fre12.Checked = False
            dic12.Checked = False
            liq12.Checked = False
            ren12.Checked = False
            cui12.Checked = False
            man12.Checked = False
            tra12.Checked = False
            pon12.Checked = False
        End If


    End Sub
    Private Sub frmEvaluacionesfull_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        ToolStrip2.Cursor = Cursors.Hand
        ToolStrip2.RenderMode = System.Windows.Forms.ToolStripRenderMode.System
        ToolStrip2.Stretch = True

        Dim EmpleadoSelect As String = BuscarStrDatoCitra("Empleados", "NombreCompleto", "IdEmpleado=" & EmpleadoID)
        Dim fecha As Date = Now()
        Me.txtAnio.Text = fecha.Year
        If EmpleadoSelect = "" Then
            Me.lblNombre.Text = "Indicar un empleado"
        Else
            Me.lblNombre.Text = EmpleadoSelect
        End If


        cont = 0
        cont2 = 0
        limite = frmModuloEmpleados.dgEmpleados.Rows.Count - 1
        Me.lstMeses.Text = ""

        limpia()

    End Sub
    Private Sub lic1_ToggleStateChanged(ByVal sender As System.Object, ByVal args As Telerik.WinControls.UI.StateChangedEventArgs) Handles lic1.ToggleStateChanged
        If lic1.Checked = True Then
            licencia = licencia + (6 / 12)
            totaleva1.Text = CDec(totaleva1.Text) + 6
        Else
            licencia = licencia - (6 / 12)
            totaleva1.Text = CDec(totaleva1.Text) - 6
        End If
        lictotal.Text = Math.Round(licencia, 2)
        '  f1.Text = Math.Round(licencia, 2)
        Try
            total.Text = CDec(lictotal.Text) + CDec(tartotal.Text) + CDec(unitotal.Text) + CDec(limtotal.Text) + CDec(vuetotal.Text) + CDec(turtotal.Text) + CDec(fretotal.Text) + CDec(dictotal.Text) + CDec(liqtotal.Text) + CDec(renTotal.Text) + CDec(cuiTotal.Text) + CDec(manTotal.Text) + CDec(traTotal.Text) + CDec(ponTotal.Text)
            ' f10.Text = CDec(lictotal.Text) + CDec(tartotal.Text) + CDec(unitotal.Text) + CDec(limtotal.Text) + CDec(vuetotal.Text) + CDec(turtotal.Text) + CDec(fretotal.Text) + CDec(dictotal.Text) + CDec(liqtotal.Text) + CDec(renTotal.Text) + CDec(cuiTotal.Text) + CDec(manTotal.Text) + CDec(traTotal.Text) + CDec(ponTotal.Text)
        Catch ex As Exception

        End Try


    End Sub

    Private Sub lic2_ToggleStateChanged(ByVal sender As System.Object, ByVal args As Telerik.WinControls.UI.StateChangedEventArgs) Handles lic2.ToggleStateChanged
        If lic2.Checked = True Then
            licencia = licencia + (6 / 12)
            totaleva2.Text = CDec(totaleva2.Text) + 6
        Else
            licencia = licencia - (6 / 12)
            totaleva2.Text = CDec(totaleva2.Text) - 6
        End If
        lictotal.Text = Math.Round(licencia, 2)
        ' f1.Text = Math.Round(licencia, 2)
        Try
            total.Text = CDec(lictotal.Text) + CDec(tartotal.Text) + CDec(unitotal.Text) + CDec(limtotal.Text) + CDec(vuetotal.Text) + CDec(turtotal.Text) + CDec(fretotal.Text) + CDec(dictotal.Text) + CDec(liqtotal.Text) + CDec(renTotal.Text) + CDec(cuiTotal.Text) + CDec(manTotal.Text) + CDec(traTotal.Text) + CDec(ponTotal.Text)
            ' f10.Text = CDec(lictotal.Text) + CDec(tartotal.Text) + CDec(unitotal.Text) + CDec(limtotal.Text) + CDec(vuetotal.Text) + CDec(turtotal.Text) + CDec(fretotal.Text) + CDec(dictotal.Text) + CDec(liqtotal.Text) + CDec(renTotal.Text) + CDec(cuiTotal.Text) + CDec(manTotal.Text) + CDec(traTotal.Text) + CDec(ponTotal.Text)
        Catch ex As Exception

        End Try
    End Sub

    Private Sub lic3_ToggleStateChanged(ByVal sender As System.Object, ByVal args As Telerik.WinControls.UI.StateChangedEventArgs) Handles lic3.ToggleStateChanged
        If lic3.Checked = True Then
            licencia = licencia + (6 / 12)
            totaleva3.Text = CDec(totaleva3.Text) + 6
        Else
            licencia = licencia - (6 / 12)
            totaleva3.Text = CDec(totaleva3.Text) - 6
        End If
        lictotal.Text = Math.Round(licencia, 2)
        ' f1.Text = Math.Round(licencia, 2)
        Try
            total.Text = CDec(lictotal.Text) + CDec(tartotal.Text) + CDec(unitotal.Text) + CDec(limtotal.Text) + CDec(vuetotal.Text) + CDec(turtotal.Text) + CDec(fretotal.Text) + CDec(dictotal.Text) + CDec(liqtotal.Text) + CDec(renTotal.Text) + CDec(cuiTotal.Text) + CDec(manTotal.Text) + CDec(traTotal.Text) + CDec(ponTotal.Text)
            '  f10.Text = CDec(lictotal.Text) + CDec(tartotal.Text) + CDec(unitotal.Text) + CDec(limtotal.Text) + CDec(vuetotal.Text) + CDec(turtotal.Text) + CDec(fretotal.Text) + CDec(dictotal.Text) + CDec(liqtotal.Text) + CDec(renTotal.Text) + CDec(cuiTotal.Text) + CDec(manTotal.Text) + CDec(traTotal.Text) + CDec(ponTotal.Text)

        Catch ex As Exception

        End Try
    End Sub

    Private Sub lic4_ToggleStateChanged(ByVal sender As System.Object, ByVal args As Telerik.WinControls.UI.StateChangedEventArgs) Handles lic4.ToggleStateChanged
        If lic4.Checked = True Then
            licencia = licencia + (6 / 12)
            totaleva4.Text = CDec(totaleva4.Text) + 6
        Else
            licencia = licencia - (6 / 12)
            totaleva4.Text = CDec(totaleva4.Text) - 6
        End If
        lictotal.Text = Math.Round(licencia, 2)
        '  f1.Text = Math.Round(licencia, 2)
        Try
            total.Text = CDec(lictotal.Text) + CDec(tartotal.Text) + CDec(unitotal.Text) + CDec(limtotal.Text) + CDec(vuetotal.Text) + CDec(turtotal.Text) + CDec(fretotal.Text) + CDec(dictotal.Text) + CDec(liqtotal.Text) + CDec(renTotal.Text) + CDec(cuiTotal.Text) + CDec(manTotal.Text) + CDec(traTotal.Text) + CDec(ponTotal.Text)
            ' f10.Text = CDec(lictotal.Text) + CDec(tartotal.Text) + CDec(unitotal.Text) + CDec(limtotal.Text) + CDec(vuetotal.Text) + CDec(turtotal.Text) + CDec(fretotal.Text) + CDec(dictotal.Text) + CDec(liqtotal.Text) + CDec(renTotal.Text) + CDec(cuiTotal.Text) + CDec(manTotal.Text) + CDec(traTotal.Text) + CDec(ponTotal.Text)

        Catch ex As Exception

        End Try
    End Sub

    Private Sub lic5_ToggleStateChanged(ByVal sender As System.Object, ByVal args As Telerik.WinControls.UI.StateChangedEventArgs) Handles lic5.ToggleStateChanged
        If lic5.Checked = True Then
            licencia = licencia + (6 / 12)
            totaleva5.Text = CDec(totaleva5.Text) + 6
        Else
            licencia = licencia - (6 / 12)
            totaleva5.Text = CDec(totaleva5.Text) - 6
        End If
        lictotal.Text = Math.Round(licencia, 2)
        '  f1.Text = Math.Round(licencia, 2)
        Try
            total.Text = CDec(lictotal.Text) + CDec(tartotal.Text) + CDec(unitotal.Text) + CDec(limtotal.Text) + CDec(vuetotal.Text) + CDec(turtotal.Text) + CDec(fretotal.Text) + CDec(dictotal.Text) + CDec(liqtotal.Text) + CDec(renTotal.Text) + CDec(cuiTotal.Text) + CDec(manTotal.Text) + CDec(traTotal.Text) + CDec(ponTotal.Text)
            ' f10.Text = CDec(lictotal.Text) + CDec(tartotal.Text) + CDec(unitotal.Text) + CDec(limtotal.Text) + CDec(vuetotal.Text) + CDec(turtotal.Text) + CDec(fretotal.Text) + CDec(dictotal.Text) + CDec(liqtotal.Text) + CDec(renTotal.Text) + CDec(cuiTotal.Text) + CDec(manTotal.Text) + CDec(traTotal.Text) + CDec(ponTotal.Text)

        Catch ex As Exception

        End Try
    End Sub

    Private Sub lic6_ToggleStateChanged(ByVal sender As System.Object, ByVal args As Telerik.WinControls.UI.StateChangedEventArgs) Handles lic6.ToggleStateChanged
        If lic6.Checked = True Then
            licencia = licencia + (6 / 12)
            totaleva6.Text = CDec(totaleva6.Text) + 6
        Else
            licencia = licencia - (6 / 12)
            totaleva6.Text = CDec(totaleva6.Text) - 6
        End If
        lictotal.Text = Math.Round(licencia, 2)
        ' f1.Text = Math.Round(licencia, 2)
        Try
            total.Text = CDec(lictotal.Text) + CDec(tartotal.Text) + CDec(unitotal.Text) + CDec(limtotal.Text) + CDec(vuetotal.Text) + CDec(turtotal.Text) + CDec(fretotal.Text) + CDec(dictotal.Text) + CDec(liqtotal.Text) + CDec(renTotal.Text) + CDec(cuiTotal.Text) + CDec(manTotal.Text) + CDec(traTotal.Text) + CDec(ponTotal.Text)
            ' f10.Text = CDec(lictotal.Text) + CDec(tartotal.Text) + CDec(unitotal.Text) + CDec(limtotal.Text) + CDec(vuetotal.Text) + CDec(turtotal.Text) + CDec(fretotal.Text) + CDec(dictotal.Text) + CDec(liqtotal.Text) + CDec(renTotal.Text) + CDec(cuiTotal.Text) + CDec(manTotal.Text) + CDec(traTotal.Text) + CDec(ponTotal.Text)

        Catch ex As Exception

        End Try
    End Sub

    Private Sub lic7_ToggleStateChanged(ByVal sender As System.Object, ByVal args As Telerik.WinControls.UI.StateChangedEventArgs) Handles lic7.ToggleStateChanged
        If lic7.Checked = True Then
            licencia = licencia + (6 / 12)
            totaleva7.Text = CDec(totaleva7.Text) + 6
        Else
            licencia = licencia - (6 / 12)
            totaleva7.Text = CDec(totaleva7.Text) - 6
        End If
        lictotal.Text = Math.Round(licencia, 2)
        ' f1.Text = Math.Round(licencia, 2)
        Try
            total.Text = CDec(lictotal.Text) + CDec(tartotal.Text) + CDec(unitotal.Text) + CDec(limtotal.Text) + CDec(vuetotal.Text) + CDec(turtotal.Text) + CDec(fretotal.Text) + CDec(dictotal.Text) + CDec(liqtotal.Text) + CDec(renTotal.Text) + CDec(cuiTotal.Text) + CDec(manTotal.Text) + CDec(traTotal.Text) + CDec(ponTotal.Text)
            'f10.Text = CDec(lictotal.Text) + CDec(tartotal.Text) + CDec(unitotal.Text) + CDec(limtotal.Text) + CDec(vuetotal.Text) + CDec(turtotal.Text) + CDec(fretotal.Text) + CDec(dictotal.Text) + CDec(liqtotal.Text) + CDec(renTotal.Text) + CDec(cuiTotal.Text) + CDec(manTotal.Text) + CDec(traTotal.Text) + CDec(ponTotal.Text)

        Catch ex As Exception

        End Try
    End Sub

    Private Sub lic8_ToggleStateChanged(ByVal sender As System.Object, ByVal args As Telerik.WinControls.UI.StateChangedEventArgs) Handles lic8.ToggleStateChanged
        If lic8.Checked = True Then
            licencia = licencia + (6 / 12)
            totaleva8.Text = CDec(totaleva8.Text) + 6
        Else
            licencia = licencia - (6 / 12)
            totaleva8.Text = CDec(totaleva8.Text) - 6
        End If
        lictotal.Text = Math.Round(licencia, 2)
        ' f1.Text = Math.Round(licencia, 2)
        Try
            total.Text = CDec(lictotal.Text) + CDec(tartotal.Text) + CDec(unitotal.Text) + CDec(limtotal.Text) + CDec(vuetotal.Text) + CDec(turtotal.Text) + CDec(fretotal.Text) + CDec(dictotal.Text) + CDec(liqtotal.Text) + CDec(renTotal.Text) + CDec(cuiTotal.Text) + CDec(manTotal.Text) + CDec(traTotal.Text) + CDec(ponTotal.Text)
            ' f10.Text = CDec(lictotal.Text) + CDec(tartotal.Text) + CDec(unitotal.Text) + CDec(limtotal.Text) + CDec(vuetotal.Text) + CDec(turtotal.Text) + CDec(fretotal.Text) + CDec(dictotal.Text) + CDec(liqtotal.Text) + CDec(renTotal.Text) + CDec(cuiTotal.Text) + CDec(manTotal.Text) + CDec(traTotal.Text) + CDec(ponTotal.Text)

        Catch ex As Exception

        End Try
    End Sub

    Private Sub lic9_ToggleStateChanged(ByVal sender As System.Object, ByVal args As Telerik.WinControls.UI.StateChangedEventArgs) Handles lic9.ToggleStateChanged
        If lic9.Checked = True Then
            licencia = licencia + (6 / 12)
            totaleva9.Text = CDec(totaleva9.Text) + 6
        Else
            licencia = licencia - (6 / 12)
            totaleva9.Text = CDec(totaleva9.Text) - 6
        End If
        lictotal.Text = Math.Round(licencia, 2)
        ' f1.Text = Math.Round(licencia, 2)
        Try
            total.Text = CDec(lictotal.Text) + CDec(tartotal.Text) + CDec(unitotal.Text) + CDec(limtotal.Text) + CDec(vuetotal.Text) + CDec(turtotal.Text) + CDec(fretotal.Text) + CDec(dictotal.Text) + CDec(liqtotal.Text) + CDec(renTotal.Text) + CDec(cuiTotal.Text) + CDec(manTotal.Text) + CDec(traTotal.Text) + CDec(ponTotal.Text)
            ' f10.Text = CDec(lictotal.Text) + CDec(tartotal.Text) + CDec(unitotal.Text) + CDec(limtotal.Text) + CDec(vuetotal.Text) + CDec(turtotal.Text) + CDec(fretotal.Text) + CDec(dictotal.Text) + CDec(liqtotal.Text) + CDec(renTotal.Text) + CDec(cuiTotal.Text) + CDec(manTotal.Text) + CDec(traTotal.Text) + CDec(ponTotal.Text)

        Catch ex As Exception

        End Try
    End Sub

    Private Sub lic10_ToggleStateChanged(ByVal sender As System.Object, ByVal args As Telerik.WinControls.UI.StateChangedEventArgs) Handles lic10.ToggleStateChanged
        If lic10.Checked = True Then
            licencia = licencia + (6 / 12)
            totaleva10.Text = CDec(totaleva10.Text) + 6
        Else
            licencia = licencia - (6 / 12)
            totaleva10.Text = CDec(totaleva10.Text) - 6
        End If
        lictotal.Text = Math.Round(licencia, 2)
        'f1.Text = Math.Round(licencia, 2)
        Try
            total.Text = CDec(lictotal.Text) + CDec(tartotal.Text) + CDec(unitotal.Text) + CDec(limtotal.Text) + CDec(vuetotal.Text) + CDec(turtotal.Text) + CDec(fretotal.Text) + CDec(dictotal.Text) + CDec(liqtotal.Text) + CDec(renTotal.Text) + CDec(cuiTotal.Text) + CDec(manTotal.Text) + CDec(traTotal.Text) + CDec(ponTotal.Text)
            'f10.Text = CDec(lictotal.Text) + CDec(tartotal.Text) + CDec(unitotal.Text) + CDec(limtotal.Text) + CDec(vuetotal.Text) + CDec(turtotal.Text) + CDec(fretotal.Text) + CDec(dictotal.Text) + CDec(liqtotal.Text) + CDec(renTotal.Text) + CDec(cuiTotal.Text) + CDec(manTotal.Text) + CDec(traTotal.Text) + CDec(ponTotal.Text)

        Catch ex As Exception

        End Try
    End Sub

    Private Sub lic11_ToggleStateChanged(ByVal sender As System.Object, ByVal args As Telerik.WinControls.UI.StateChangedEventArgs) Handles lic11.ToggleStateChanged
        If lic11.Checked = True Then
            licencia = licencia + (6 / 12)
            totaleva11.Text = CDec(totaleva11.Text) + 6
        Else
            licencia = licencia - (6 / 12)
            totaleva11.Text = CDec(totaleva11.Text) - 6
        End If
        lictotal.Text = Math.Round(licencia, 2)
        ' f1.Text = Math.Round(licencia, 2)
        Try
            total.Text = CDec(lictotal.Text) + CDec(tartotal.Text) + CDec(unitotal.Text) + CDec(limtotal.Text) + CDec(vuetotal.Text) + CDec(turtotal.Text) + CDec(fretotal.Text) + CDec(dictotal.Text) + CDec(liqtotal.Text) + CDec(renTotal.Text) + CDec(cuiTotal.Text) + CDec(manTotal.Text) + CDec(traTotal.Text) + CDec(ponTotal.Text)
            'f10.Text = CDec(lictotal.Text) + CDec(tartotal.Text) + CDec(unitotal.Text) + CDec(limtotal.Text) + CDec(vuetotal.Text) + CDec(turtotal.Text) + CDec(fretotal.Text) + CDec(dictotal.Text) + CDec(liqtotal.Text) + CDec(renTotal.Text) + CDec(cuiTotal.Text) + CDec(manTotal.Text) + CDec(traTotal.Text) + CDec(ponTotal.Text)

        Catch ex As Exception

        End Try
    End Sub

    Private Sub lic12_ToggleStateChanged(ByVal sender As System.Object, ByVal args As Telerik.WinControls.UI.StateChangedEventArgs) Handles lic12.ToggleStateChanged
        If lic12.Checked = True Then
            licencia = licencia + (6 / 12)
            totaleva12.Text = CDec(totaleva12.Text) + 6
        Else
            licencia = licencia - (6 / 12)
            totaleva12.Text = CDec(totaleva12.Text) - 6
        End If
        lictotal.Text = Math.Round(licencia, 2)
        ' f1.Text = Math.Round(licencia, 2)
        Try
            total.Text = CDec(lictotal.Text) + CDec(tartotal.Text) + CDec(unitotal.Text) + CDec(limtotal.Text) + CDec(vuetotal.Text) + CDec(turtotal.Text) + CDec(fretotal.Text) + CDec(dictotal.Text) + CDec(liqtotal.Text) + CDec(renTotal.Text) + CDec(cuiTotal.Text) + CDec(manTotal.Text) + CDec(traTotal.Text) + CDec(ponTotal.Text)
            ' f10.Text = CDec(lictotal.Text) + CDec(tartotal.Text) + CDec(unitotal.Text) + CDec(limtotal.Text) + CDec(vuetotal.Text) + CDec(turtotal.Text) + CDec(fretotal.Text) + CDec(dictotal.Text) + CDec(liqtotal.Text) + CDec(renTotal.Text) + CDec(cuiTotal.Text) + CDec(manTotal.Text) + CDec(traTotal.Text) + CDec(ponTotal.Text)

        Catch ex As Exception

        End Try
    End Sub

    Private Sub tar1_ToggleStateChanged(ByVal sender As System.Object, ByVal args As Telerik.WinControls.UI.StateChangedEventArgs) Handles tar1.ToggleStateChanged
        If tar1.Checked = True Then
            tarjeton = tarjeton + (6 / 12)
            totaleva1.Text = CDec(totaleva1.Text) + 6
        Else
            tarjeton = tarjeton - (6 / 12)
            totaleva1.Text = CDec(totaleva1.Text) - 6
        End If
        tartotal.Text = Math.Round(tarjeton, 2)
        ' f2.Text = Math.Round(tarjeton, 2)
        Try
            total.Text = CDec(lictotal.Text) + CDec(tartotal.Text) + CDec(unitotal.Text) + CDec(limtotal.Text) + CDec(vuetotal.Text) + CDec(turtotal.Text) + CDec(fretotal.Text) + CDec(dictotal.Text) + CDec(liqtotal.Text) + CDec(renTotal.Text) + CDec(cuiTotal.Text) + CDec(manTotal.Text) + CDec(traTotal.Text) + CDec(ponTotal.Text)
            ' f10.Text = CDec(lictotal.Text) + CDec(tartotal.Text) + CDec(unitotal.Text) + CDec(limtotal.Text) + CDec(vuetotal.Text) + CDec(turtotal.Text) + CDec(fretotal.Text) + CDec(dictotal.Text) + CDec(liqtotal.Text) + CDec(renTotal.Text) + CDec(cuiTotal.Text) + CDec(manTotal.Text) + CDec(traTotal.Text) + CDec(ponTotal.Text)

        Catch ex As Exception

        End Try
    End Sub

    Private Sub tar2_ToggleStateChanged(ByVal sender As System.Object, ByVal args As Telerik.WinControls.UI.StateChangedEventArgs) Handles tar2.ToggleStateChanged
        If tar2.Checked = True Then
            tarjeton = tarjeton + (6 / 12)
            totaleva2.Text = CDec(totaleva2.Text) + 6
        Else
            tarjeton = tarjeton - (6 / 12)
            totaleva2.Text = CDec(totaleva2.Text) - 6
        End If
        tartotal.Text = Math.Round(tarjeton, 2)
        ' f2.Text = Math.Round(tarjeton, 2)
        Try
            total.Text = CDec(lictotal.Text) + CDec(tartotal.Text) + CDec(unitotal.Text) + CDec(limtotal.Text) + CDec(vuetotal.Text) + CDec(turtotal.Text) + CDec(fretotal.Text) + CDec(dictotal.Text) + CDec(liqtotal.Text) + CDec(renTotal.Text) + CDec(cuiTotal.Text) + CDec(manTotal.Text) + CDec(traTotal.Text) + CDec(ponTotal.Text)
            '   f10.Text = CDec(lictotal.Text) + CDec(tartotal.Text) + CDec(unitotal.Text) + CDec(limtotal.Text) + CDec(vuetotal.Text) + CDec(turtotal.Text) + CDec(fretotal.Text) + CDec(dictotal.Text) + CDec(liqtotal.Text) + CDec(renTotal.Text) + CDec(cuiTotal.Text) + CDec(manTotal.Text) + CDec(traTotal.Text) + CDec(ponTotal.Text)

        Catch ex As Exception

        End Try

    End Sub

    Private Sub tar3_ToggleStateChanged(ByVal sender As System.Object, ByVal args As Telerik.WinControls.UI.StateChangedEventArgs) Handles tar3.ToggleStateChanged
        If tar3.Checked = True Then
            tarjeton = tarjeton + (6 / 12)
            totaleva3.Text = CDec(totaleva3.Text) + 6
        Else
            tarjeton = tarjeton - (6 / 12)
            totaleva3.Text = CDec(totaleva3.Text) - 6
        End If
        tartotal.Text = Math.Round(tarjeton, 2)
        ' f2.Text = Math.Round(tarjeton, 2)
        Try
            total.Text = CDec(lictotal.Text) + CDec(tartotal.Text) + CDec(unitotal.Text) + CDec(limtotal.Text) + CDec(vuetotal.Text) + CDec(turtotal.Text) + CDec(fretotal.Text) + CDec(dictotal.Text) + CDec(liqtotal.Text) + CDec(renTotal.Text) + CDec(cuiTotal.Text) + CDec(manTotal.Text) + CDec(traTotal.Text) + CDec(ponTotal.Text)
            ' f10.Text = CDec(lictotal.Text) + CDec(tartotal.Text) + CDec(unitotal.Text) + CDec(limtotal.Text) + CDec(vuetotal.Text) + CDec(turtotal.Text) + CDec(fretotal.Text) + CDec(dictotal.Text) + CDec(liqtotal.Text) + CDec(renTotal.Text) + CDec(cuiTotal.Text) + CDec(manTotal.Text) + CDec(traTotal.Text) + CDec(ponTotal.Text)

        Catch ex As Exception

        End Try
    End Sub

    Private Sub tar4_ToggleStateChanged(ByVal sender As System.Object, ByVal args As Telerik.WinControls.UI.StateChangedEventArgs) Handles tar4.ToggleStateChanged
        If tar4.Checked = True Then
            tarjeton = tarjeton + (6 / 12)
            totaleva4.Text = CDec(totaleva4.Text) + 6
        Else
            tarjeton = tarjeton - (6 / 12)
            totaleva4.Text = CDec(totaleva4.Text) - 6
        End If
        tartotal.Text = Math.Round(tarjeton, 2)
        ' f2.Text = Math.Round(tarjeton, 2)
        Try
            total.Text = CDec(lictotal.Text) + CDec(tartotal.Text) + CDec(unitotal.Text) + CDec(limtotal.Text) + CDec(vuetotal.Text) + CDec(turtotal.Text) + CDec(fretotal.Text) + CDec(dictotal.Text) + CDec(liqtotal.Text) + CDec(renTotal.Text) + CDec(cuiTotal.Text) + CDec(manTotal.Text) + CDec(traTotal.Text) + CDec(ponTotal.Text)
            'f10.Text = CDec(lictotal.Text) + CDec(tartotal.Text) + CDec(unitotal.Text) + CDec(limtotal.Text) + CDec(vuetotal.Text) + CDec(turtotal.Text) + CDec(fretotal.Text) + CDec(dictotal.Text) + CDec(liqtotal.Text) + CDec(renTotal.Text) + CDec(cuiTotal.Text) + CDec(manTotal.Text) + CDec(traTotal.Text) + CDec(ponTotal.Text)

        Catch ex As Exception

        End Try
    End Sub

    Private Sub tar5_ToggleStateChanged(ByVal sender As System.Object, ByVal args As Telerik.WinControls.UI.StateChangedEventArgs) Handles tar5.ToggleStateChanged
        If tar5.Checked = True Then
            tarjeton = tarjeton + (6 / 12)
            totaleva5.Text = CDec(totaleva5.Text) + 6
        Else
            tarjeton = tarjeton - (6 / 12)
            totaleva5.Text = CDec(totaleva5.Text) - 6
        End If
        tartotal.Text = Math.Round(tarjeton, 2)
        ' f2.Text = Math.Round(tarjeton, 2)
        Try
            total.Text = CDec(lictotal.Text) + CDec(tartotal.Text) + CDec(unitotal.Text) + CDec(limtotal.Text) + CDec(vuetotal.Text) + CDec(turtotal.Text) + CDec(fretotal.Text) + CDec(dictotal.Text) + CDec(liqtotal.Text) + CDec(renTotal.Text) + CDec(cuiTotal.Text) + CDec(manTotal.Text) + CDec(traTotal.Text) + CDec(ponTotal.Text)
            '  f10.Text = CDec(lictotal.Text) + CDec(tartotal.Text) + CDec(unitotal.Text) + CDec(limtotal.Text) + CDec(vuetotal.Text) + CDec(turtotal.Text) + CDec(fretotal.Text) + CDec(dictotal.Text) + CDec(liqtotal.Text) + CDec(renTotal.Text) + CDec(cuiTotal.Text) + CDec(manTotal.Text) + CDec(traTotal.Text) + CDec(ponTotal.Text)

        Catch ex As Exception

        End Try
    End Sub

    Private Sub tar6_ToggleStateChanged(ByVal sender As System.Object, ByVal args As Telerik.WinControls.UI.StateChangedEventArgs) Handles tar6.ToggleStateChanged
        If tar6.Checked = True Then
            tarjeton = tarjeton + (6 / 12)
            totaleva6.Text = CDec(totaleva6.Text) + 6
        Else
            tarjeton = tarjeton - (6 / 12)
            totaleva6.Text = CDec(totaleva6.Text) - 6
        End If
        tartotal.Text = Math.Round(tarjeton, 2)
        'f2.Text = Math.Round(tarjeton, 2)
        Try
            total.Text = CDec(lictotal.Text) + CDec(tartotal.Text) + CDec(unitotal.Text) + CDec(limtotal.Text) + CDec(vuetotal.Text) + CDec(turtotal.Text) + CDec(fretotal.Text) + CDec(dictotal.Text) + CDec(liqtotal.Text) + CDec(renTotal.Text) + CDec(cuiTotal.Text) + CDec(manTotal.Text) + CDec(traTotal.Text) + CDec(ponTotal.Text)
            'f10.Text = CDec(lictotal.Text) + CDec(tartotal.Text) + CDec(unitotal.Text) + CDec(limtotal.Text) + CDec(vuetotal.Text) + CDec(turtotal.Text) + CDec(fretotal.Text) + CDec(dictotal.Text) + CDec(liqtotal.Text) + CDec(renTotal.Text) + CDec(cuiTotal.Text) + CDec(manTotal.Text) + CDec(traTotal.Text) + CDec(ponTotal.Text)

        Catch ex As Exception

        End Try
    End Sub

    Private Sub tar7_ToggleStateChanged(ByVal sender As System.Object, ByVal args As Telerik.WinControls.UI.StateChangedEventArgs) Handles tar7.ToggleStateChanged
        If tar7.Checked = True Then
            tarjeton = tarjeton + (6 / 12)
            totaleva7.Text = CDec(totaleva7.Text) + 6
        Else
            tarjeton = tarjeton - (6 / 12)
            totaleva7.Text = CDec(totaleva7.Text) - 6
        End If
        tartotal.Text = Math.Round(tarjeton, 2)
        'f2.Text = Math.Round(tarjeton, 2)
        Try
            total.Text = CDec(lictotal.Text) + CDec(tartotal.Text) + CDec(unitotal.Text) + CDec(limtotal.Text) + CDec(vuetotal.Text) + CDec(turtotal.Text) + CDec(fretotal.Text) + CDec(dictotal.Text) + CDec(liqtotal.Text) + CDec(renTotal.Text) + CDec(cuiTotal.Text) + CDec(manTotal.Text) + CDec(traTotal.Text) + CDec(ponTotal.Text)
            'f10.Text = CDec(lictotal.Text) + CDec(tartotal.Text) + CDec(unitotal.Text) + CDec(limtotal.Text) + CDec(vuetotal.Text) + CDec(turtotal.Text) + CDec(fretotal.Text) + CDec(dictotal.Text) + CDec(liqtotal.Text) + CDec(renTotal.Text) + CDec(cuiTotal.Text) + CDec(manTotal.Text) + CDec(traTotal.Text) + CDec(ponTotal.Text)

        Catch ex As Exception

        End Try
    End Sub

    Private Sub tar8_ToggleStateChanged(ByVal sender As System.Object, ByVal args As Telerik.WinControls.UI.StateChangedEventArgs) Handles tar8.ToggleStateChanged
        If tar8.Checked = True Then
            tarjeton = tarjeton + (6 / 12)
            totaleva8.Text = CDec(totaleva8.Text) + 6
        Else
            tarjeton = tarjeton - (6 / 12)
            totaleva8.Text = CDec(totaleva8.Text) - 6
        End If
        tartotal.Text = Math.Round(tarjeton, 2)
        'f2.Text = Math.Round(tarjeton, 2)
        Try
            total.Text = CDec(lictotal.Text) + CDec(tartotal.Text) + CDec(unitotal.Text) + CDec(limtotal.Text) + CDec(vuetotal.Text) + CDec(turtotal.Text) + CDec(fretotal.Text) + CDec(dictotal.Text) + CDec(liqtotal.Text) + CDec(renTotal.Text) + CDec(cuiTotal.Text) + CDec(manTotal.Text) + CDec(traTotal.Text) + CDec(ponTotal.Text)
            ' f10.Text = CDec(lictotal.Text) + CDec(tartotal.Text) + CDec(unitotal.Text) + CDec(limtotal.Text) + CDec(vuetotal.Text) + CDec(turtotal.Text) + CDec(fretotal.Text) + CDec(dictotal.Text) + CDec(liqtotal.Text) + CDec(renTotal.Text) + CDec(cuiTotal.Text) + CDec(manTotal.Text) + CDec(traTotal.Text) + CDec(ponTotal.Text)

        Catch ex As Exception

        End Try
    End Sub

    Private Sub tar9_ToggleStateChanged(ByVal sender As System.Object, ByVal args As Telerik.WinControls.UI.StateChangedEventArgs) Handles tar9.ToggleStateChanged
        If tar9.Checked = True Then
            tarjeton = tarjeton + (6 / 12)
            totaleva9.Text = CDec(totaleva9.Text) + 6
        Else
            tarjeton = tarjeton - (6 / 12)
            totaleva9.Text = CDec(totaleva9.Text) - 6
        End If
        tartotal.Text = Math.Round(tarjeton, 2)
        ' f2.Text = Math.Round(tarjeton, 2)
        Try
            total.Text = CDec(lictotal.Text) + CDec(tartotal.Text) + CDec(unitotal.Text) + CDec(limtotal.Text) + CDec(vuetotal.Text) + CDec(turtotal.Text) + CDec(fretotal.Text) + CDec(dictotal.Text) + CDec(liqtotal.Text) + CDec(renTotal.Text) + CDec(cuiTotal.Text) + CDec(manTotal.Text) + CDec(traTotal.Text) + CDec(ponTotal.Text)
            ' f10.Text = CDec(lictotal.Text) + CDec(tartotal.Text) + CDec(unitotal.Text) + CDec(limtotal.Text) + CDec(vuetotal.Text) + CDec(turtotal.Text) + CDec(fretotal.Text) + CDec(dictotal.Text) + CDec(liqtotal.Text) + CDec(renTotal.Text) + CDec(cuiTotal.Text) + CDec(manTotal.Text) + CDec(traTotal.Text) + CDec(ponTotal.Text)

        Catch ex As Exception

        End Try
    End Sub

    Private Sub tar10_ToggleStateChanged(ByVal sender As System.Object, ByVal args As Telerik.WinControls.UI.StateChangedEventArgs) Handles tar10.ToggleStateChanged
        If tar10.Checked = True Then
            tarjeton = tarjeton + (6 / 12)
            totaleva10.Text = CDec(totaleva10.Text) + 6
        Else
            tarjeton = tarjeton - (6 / 12)
            totaleva10.Text = CDec(totaleva10.Text) - 6
        End If
        tartotal.Text = Math.Round(tarjeton, 2)
        '  f2.Text = Math.Round(tarjeton, 2)
        Try
            total.Text = CDec(lictotal.Text) + CDec(tartotal.Text) + CDec(unitotal.Text) + CDec(limtotal.Text) + CDec(vuetotal.Text) + CDec(turtotal.Text) + CDec(fretotal.Text) + CDec(dictotal.Text) + CDec(liqtotal.Text) + CDec(renTotal.Text) + CDec(cuiTotal.Text) + CDec(manTotal.Text) + CDec(traTotal.Text) + CDec(ponTotal.Text)
            ' f10.Text = CDec(lictotal.Text) + CDec(tartotal.Text) + CDec(unitotal.Text) + CDec(limtotal.Text) + CDec(vuetotal.Text) + CDec(turtotal.Text) + CDec(fretotal.Text) + CDec(dictotal.Text) + CDec(liqtotal.Text) + CDec(renTotal.Text) + CDec(cuiTotal.Text) + CDec(manTotal.Text) + CDec(traTotal.Text) + CDec(ponTotal.Text)

        Catch ex As Exception

        End Try
    End Sub

    Private Sub tar11_ToggleStateChanged(ByVal sender As System.Object, ByVal args As Telerik.WinControls.UI.StateChangedEventArgs) Handles tar11.ToggleStateChanged
        If tar11.Checked = True Then
            tarjeton = tarjeton + (6 / 12)
            totaleva11.Text = CDec(totaleva11.Text) + 6
        Else
            tarjeton = tarjeton - (6 / 12)
            totaleva11.Text = CDec(totaleva11.Text) - 6
        End If
        tartotal.Text = Math.Round(tarjeton, 2)
        ' f2.Text = Math.Round(tarjeton, 2)
        Try
            total.Text = CDec(lictotal.Text) + CDec(tartotal.Text) + CDec(unitotal.Text) + CDec(limtotal.Text) + CDec(vuetotal.Text) + CDec(turtotal.Text) + CDec(fretotal.Text) + CDec(dictotal.Text) + CDec(liqtotal.Text) + CDec(renTotal.Text) + CDec(cuiTotal.Text) + CDec(manTotal.Text) + CDec(traTotal.Text) + CDec(ponTotal.Text)
            'f10.Text = CDec(lictotal.Text) + CDec(tartotal.Text) + CDec(unitotal.Text) + CDec(limtotal.Text) + CDec(vuetotal.Text) + CDec(turtotal.Text) + CDec(fretotal.Text) + CDec(dictotal.Text) + CDec(liqtotal.Text) + CDec(renTotal.Text) + CDec(cuiTotal.Text) + CDec(manTotal.Text) + CDec(traTotal.Text) + CDec(ponTotal.Text)

        Catch ex As Exception

        End Try
    End Sub

    Private Sub tar12_ToggleStateChanged(ByVal sender As System.Object, ByVal args As Telerik.WinControls.UI.StateChangedEventArgs) Handles tar12.ToggleStateChanged
        If tar12.Checked = True Then
            tarjeton = tarjeton + (6 / 12)
            totaleva12.Text = CDec(totaleva12.Text) + 6
        Else
            tarjeton = tarjeton - (6 / 12)
            totaleva12.Text = CDec(totaleva12.Text) - 6
        End If
        tartotal.Text = Math.Round(tarjeton, 2)
        'f2.Text = Math.Round(tarjeton, 2)
        Try
            total.Text = CDec(lictotal.Text) + CDec(tartotal.Text) + CDec(unitotal.Text) + CDec(limtotal.Text) + CDec(vuetotal.Text) + CDec(turtotal.Text) + CDec(fretotal.Text) + CDec(dictotal.Text) + CDec(liqtotal.Text) + CDec(renTotal.Text) + CDec(cuiTotal.Text) + CDec(manTotal.Text) + CDec(traTotal.Text) + CDec(ponTotal.Text)
            'f10.Text = CDec(lictotal.Text) + CDec(tartotal.Text) + CDec(unitotal.Text) + CDec(limtotal.Text) + CDec(vuetotal.Text) + CDec(turtotal.Text) + CDec(fretotal.Text) + CDec(dictotal.Text) + CDec(liqtotal.Text) + CDec(renTotal.Text) + CDec(cuiTotal.Text) + CDec(manTotal.Text) + CDec(traTotal.Text) + CDec(ponTotal.Text)

        Catch ex As Exception
        End Try
    End Sub

    Private Sub uni1_ToggleStateChanged(ByVal sender As System.Object, ByVal args As Telerik.WinControls.UI.StateChangedEventArgs) Handles uni1.ToggleStateChanged
        If uni1.Checked = True Then
            uniformes = uniformes + (5 / 12)
            totaleva1.Text = CDec(totaleva1.Text) + 5
        Else
            uniformes = uniformes - (5 / 12)
            totaleva1.Text = CDec(totaleva1.Text) - 5
        End If
        unitotal.Text = Math.Round(uniformes, 2)
        ' f3.Text = Math.Round(uniformes, 2)
        Try
            total.Text = CDec(lictotal.Text) + CDec(tartotal.Text) + CDec(unitotal.Text) + CDec(limtotal.Text) + CDec(vuetotal.Text) + CDec(turtotal.Text) + CDec(fretotal.Text) + CDec(dictotal.Text) + CDec(liqtotal.Text) + CDec(renTotal.Text) + CDec(cuiTotal.Text) + CDec(manTotal.Text) + CDec(traTotal.Text) + CDec(ponTotal.Text)
            ' f10.Text = CDec(lictotal.Text) + CDec(tartotal.Text) + CDec(unitotal.Text) + CDec(limtotal.Text) + CDec(vuetotal.Text) + CDec(turtotal.Text) + CDec(fretotal.Text) + CDec(dictotal.Text) + CDec(liqtotal.Text) + CDec(renTotal.Text) + CDec(cuiTotal.Text) + CDec(manTotal.Text) + CDec(traTotal.Text) + CDec(ponTotal.Text)

        Catch ex As Exception

        End Try
    End Sub

    Private Sub uni2_ToggleStateChanged(ByVal sender As System.Object, ByVal args As Telerik.WinControls.UI.StateChangedEventArgs) Handles uni2.ToggleStateChanged
        If uni2.Checked = True Then
            uniformes = uniformes + (5 / 12)
            totaleva2.Text = CDec(totaleva2.Text) + 5
        Else
            uniformes = uniformes - (5 / 12)
            totaleva2.Text = CDec(totaleva2.Text) - 5
        End If
        unitotal.Text = Math.Round(uniformes, 2)
        '  f3.Text = Math.Round(uniformes, 2)
        Try
            total.Text = CDec(lictotal.Text) + CDec(tartotal.Text) + CDec(unitotal.Text) + CDec(limtotal.Text) + CDec(vuetotal.Text) + CDec(turtotal.Text) + CDec(fretotal.Text) + CDec(dictotal.Text) + CDec(liqtotal.Text) + CDec(renTotal.Text) + CDec(cuiTotal.Text) + CDec(manTotal.Text) + CDec(traTotal.Text) + CDec(ponTotal.Text)
            '  f10.Text = CDec(lictotal.Text) + CDec(tartotal.Text) + CDec(unitotal.Text) + CDec(limtotal.Text) + CDec(vuetotal.Text) + CDec(turtotal.Text) + CDec(fretotal.Text) + CDec(dictotal.Text) + CDec(liqtotal.Text) + CDec(renTotal.Text) + CDec(cuiTotal.Text) + CDec(manTotal.Text) + CDec(traTotal.Text) + CDec(ponTotal.Text)

        Catch ex As Exception

        End Try
    End Sub

    Private Sub uni3_ToggleStateChanged(ByVal sender As System.Object, ByVal args As Telerik.WinControls.UI.StateChangedEventArgs) Handles uni3.ToggleStateChanged
        If uni3.Checked = True Then
            uniformes = uniformes + (5 / 12)
            totaleva3.Text = CDec(totaleva3.Text) + 5
        Else
            uniformes = uniformes - (5 / 12)
            totaleva3.Text = CDec(totaleva3.Text) - 5
        End If
        unitotal.Text = Math.Round(uniformes, 2)
        ' f3.Text = Math.Round(uniformes, 2)
        Try
            total.Text = CDec(lictotal.Text) + CDec(tartotal.Text) + CDec(unitotal.Text) + CDec(limtotal.Text) + CDec(vuetotal.Text) + CDec(turtotal.Text) + CDec(fretotal.Text) + CDec(dictotal.Text) + CDec(liqtotal.Text) + CDec(renTotal.Text) + CDec(cuiTotal.Text) + CDec(manTotal.Text) + CDec(traTotal.Text) + CDec(ponTotal.Text)
            ' f10.Text = CDec(lictotal.Text) + CDec(tartotal.Text) + CDec(unitotal.Text) + CDec(limtotal.Text) + CDec(vuetotal.Text) + CDec(turtotal.Text) + CDec(fretotal.Text) + CDec(dictotal.Text) + CDec(liqtotal.Text) + CDec(renTotal.Text) + CDec(cuiTotal.Text) + CDec(manTotal.Text) + CDec(traTotal.Text) + CDec(ponTotal.Text)

        Catch ex As Exception
        End Try
    End Sub

    Private Sub uni4_ToggleStateChanged(ByVal sender As System.Object, ByVal args As Telerik.WinControls.UI.StateChangedEventArgs) Handles uni4.ToggleStateChanged
        If uni4.Checked = True Then
            uniformes = uniformes + (5 / 12)
            totaleva4.Text = CDec(totaleva4.Text) + 5
        Else
            uniformes = uniformes - (5 / 12)
            totaleva4.Text = CDec(totaleva4.Text) - 5
        End If
        unitotal.Text = Math.Round(uniformes, 2)
        'f3.Text = Math.Round(uniformes, 2)
        Try
            total.Text = CDec(lictotal.Text) + CDec(tartotal.Text) + CDec(unitotal.Text) + CDec(limtotal.Text) + CDec(vuetotal.Text) + CDec(turtotal.Text) + CDec(fretotal.Text) + CDec(dictotal.Text) + CDec(liqtotal.Text) + CDec(renTotal.Text) + CDec(cuiTotal.Text) + CDec(manTotal.Text) + CDec(traTotal.Text) + CDec(ponTotal.Text)
            'f10.Text = CDec(lictotal.Text) + CDec(tartotal.Text) + CDec(unitotal.Text) + CDec(limtotal.Text) + CDec(vuetotal.Text) + CDec(turtotal.Text) + CDec(fretotal.Text) + CDec(dictotal.Text) + CDec(liqtotal.Text) + CDec(renTotal.Text) + CDec(cuiTotal.Text) + CDec(manTotal.Text) + CDec(traTotal.Text) + CDec(ponTotal.Text)

        Catch ex As Exception

        End Try
    End Sub

    Private Sub uni5_ToggleStateChanged(ByVal sender As System.Object, ByVal args As Telerik.WinControls.UI.StateChangedEventArgs) Handles uni5.ToggleStateChanged
        If uni5.Checked = True Then
            uniformes = uniformes + (5 / 12)
            totaleva5.Text = CDec(totaleva5.Text) + 5
        Else
            uniformes = uniformes - (5 / 12)
            totaleva5.Text = CDec(totaleva5.Text) - 5
        End If
        unitotal.Text = Math.Round(uniformes, 2)
        'f3.Text = Math.Round(uniformes, 2)
        Try
            total.Text = CDec(lictotal.Text) + CDec(tartotal.Text) + CDec(unitotal.Text) + CDec(limtotal.Text) + CDec(vuetotal.Text) + CDec(turtotal.Text) + CDec(fretotal.Text) + CDec(dictotal.Text) + CDec(liqtotal.Text) + CDec(renTotal.Text) + CDec(cuiTotal.Text) + CDec(manTotal.Text) + CDec(traTotal.Text) + CDec(ponTotal.Text)
            '  f10.Text = CDec(lictotal.Text) + CDec(tartotal.Text) + CDec(unitotal.Text) + CDec(limtotal.Text) + CDec(vuetotal.Text) + CDec(turtotal.Text) + CDec(fretotal.Text) + CDec(dictotal.Text) + CDec(liqtotal.Text) + CDec(renTotal.Text) + CDec(cuiTotal.Text) + CDec(manTotal.Text) + CDec(traTotal.Text) + CDec(ponTotal.Text)

        Catch ex As Exception

        End Try
    End Sub

    Private Sub uni6_ToggleStateChanged(ByVal sender As System.Object, ByVal args As Telerik.WinControls.UI.StateChangedEventArgs) Handles uni6.ToggleStateChanged
        If uni6.Checked = True Then
            uniformes = uniformes + (5 / 12)
            totaleva6.Text = CDec(totaleva6.Text) + 5
        Else
            uniformes = uniformes - (5 / 12)
            totaleva6.Text = CDec(totaleva6.Text) - 5
        End If
        unitotal.Text = Math.Round(uniformes, 2)
        '  f3.Text = Math.Round(uniformes, 2)
        Try
            total.Text = CDec(lictotal.Text) + CDec(tartotal.Text) + CDec(unitotal.Text) + CDec(limtotal.Text) + CDec(vuetotal.Text) + CDec(turtotal.Text) + CDec(fretotal.Text) + CDec(dictotal.Text) + CDec(liqtotal.Text) + CDec(renTotal.Text) + CDec(cuiTotal.Text) + CDec(manTotal.Text) + CDec(traTotal.Text) + CDec(ponTotal.Text)
            ' f10.Text = CDec(lictotal.Text) + CDec(tartotal.Text) + CDec(unitotal.Text) + CDec(limtotal.Text) + CDec(vuetotal.Text) + CDec(turtotal.Text) + CDec(fretotal.Text) + CDec(dictotal.Text) + CDec(liqtotal.Text) + CDec(renTotal.Text) + CDec(cuiTotal.Text) + CDec(manTotal.Text) + CDec(traTotal.Text) + CDec(ponTotal.Text)

        Catch ex As Exception

        End Try
    End Sub

    Private Sub uni7_ToggleStateChanged(ByVal sender As System.Object, ByVal args As Telerik.WinControls.UI.StateChangedEventArgs) Handles uni7.ToggleStateChanged
        If uni7.Checked = True Then
            uniformes = uniformes + (5 / 12)
            totaleva7.Text = CDec(totaleva7.Text) + 5
        Else
            uniformes = uniformes - (5 / 12)
            totaleva7.Text = CDec(totaleva7.Text) - 5
        End If
        unitotal.Text = Math.Round(uniformes, 2)
        '  f3.Text = Math.Round(uniformes, 2)
        Try
            total.Text = CDec(lictotal.Text) + CDec(tartotal.Text) + CDec(unitotal.Text) + CDec(limtotal.Text) + CDec(vuetotal.Text) + CDec(turtotal.Text) + CDec(fretotal.Text) + CDec(dictotal.Text) + CDec(liqtotal.Text) + CDec(renTotal.Text) + CDec(cuiTotal.Text) + CDec(manTotal.Text) + CDec(traTotal.Text) + CDec(ponTotal.Text)
            '  f10.Text = CDec(lictotal.Text) + CDec(tartotal.Text) + CDec(unitotal.Text) + CDec(limtotal.Text) + CDec(vuetotal.Text) + CDec(turtotal.Text) + CDec(fretotal.Text) + CDec(dictotal.Text) + CDec(liqtotal.Text) + CDec(renTotal.Text) + CDec(cuiTotal.Text) + CDec(manTotal.Text) + CDec(traTotal.Text) + CDec(ponTotal.Text)

        Catch ex As Exception

        End Try
    End Sub

    Private Sub uni8_ToggleStateChanged(ByVal sender As System.Object, ByVal args As Telerik.WinControls.UI.StateChangedEventArgs) Handles uni8.ToggleStateChanged
        If uni8.Checked = True Then
            uniformes = uniformes + (5 / 12)
            totaleva8.Text = CDec(totaleva8.Text) + 5
        Else
            uniformes = uniformes - (5 / 12)
            totaleva8.Text = CDec(totaleva8.Text) - 5
        End If
        unitotal.Text = Math.Round(uniformes, 2)
        ' f3.Text = Math.Round(uniformes, 2)
        Try
            total.Text = CDec(lictotal.Text) + CDec(tartotal.Text) + CDec(unitotal.Text) + CDec(limtotal.Text) + CDec(vuetotal.Text) + CDec(turtotal.Text) + CDec(fretotal.Text) + CDec(dictotal.Text) + CDec(liqtotal.Text) + CDec(renTotal.Text) + CDec(cuiTotal.Text) + CDec(manTotal.Text) + CDec(traTotal.Text) + CDec(ponTotal.Text)
            '   f10.Text = CDec(lictotal.Text) + CDec(tartotal.Text) + CDec(unitotal.Text) + CDec(limtotal.Text) + CDec(vuetotal.Text) + CDec(turtotal.Text) + CDec(fretotal.Text) + CDec(dictotal.Text) + CDec(liqtotal.Text) + CDec(renTotal.Text) + CDec(cuiTotal.Text) + CDec(manTotal.Text) + CDec(traTotal.Text) + CDec(ponTotal.Text)

        Catch ex As Exception

        End Try
    End Sub

    Private Sub uni9_ToggleStateChanged(ByVal sender As System.Object, ByVal args As Telerik.WinControls.UI.StateChangedEventArgs) Handles uni9.ToggleStateChanged
        If uni9.Checked = True Then
            uniformes = uniformes + (5 / 12)
            totaleva9.Text = CDec(totaleva9.Text) + 5
        Else
            uniformes = uniformes - (5 / 12)
            totaleva9.Text = CDec(totaleva9.Text) - 5
        End If
        unitotal.Text = Math.Round(uniformes, 2)
        ' f3.Text = Math.Round(uniformes, 2)
        Try
            total.Text = CDec(lictotal.Text) + CDec(tartotal.Text) + CDec(unitotal.Text) + CDec(limtotal.Text) + CDec(vuetotal.Text) + CDec(turtotal.Text) + CDec(fretotal.Text) + CDec(dictotal.Text) + CDec(liqtotal.Text) + CDec(renTotal.Text) + CDec(cuiTotal.Text) + CDec(manTotal.Text) + CDec(traTotal.Text) + CDec(ponTotal.Text)
            '  f10.Text = CDec(lictotal.Text) + CDec(tartotal.Text) + CDec(unitotal.Text) + CDec(limtotal.Text) + CDec(vuetotal.Text) + CDec(turtotal.Text) + CDec(fretotal.Text) + CDec(dictotal.Text) + CDec(liqtotal.Text) + CDec(renTotal.Text) + CDec(cuiTotal.Text) + CDec(manTotal.Text) + CDec(traTotal.Text) + CDec(ponTotal.Text)

        Catch ex As Exception
        End Try
    End Sub

    Private Sub uni10_ToggleStateChanged(ByVal sender As System.Object, ByVal args As Telerik.WinControls.UI.StateChangedEventArgs) Handles uni10.ToggleStateChanged
        If uni10.Checked = True Then
            uniformes = uniformes + (5 / 12)
            totaleva10.Text = CDec(totaleva10.Text) + 5
        Else
            uniformes = uniformes - (5 / 12)
            totaleva10.Text = CDec(totaleva10.Text) - 5
        End If
        unitotal.Text = Math.Round(uniformes, 2)
        ' f3.Text = Math.Round(uniformes, 2)
        Try
            total.Text = CDec(lictotal.Text) + CDec(tartotal.Text) + CDec(unitotal.Text) + CDec(limtotal.Text) + CDec(vuetotal.Text) + CDec(turtotal.Text) + CDec(fretotal.Text) + CDec(dictotal.Text) + CDec(liqtotal.Text) + CDec(renTotal.Text) + CDec(cuiTotal.Text) + CDec(manTotal.Text) + CDec(traTotal.Text) + CDec(ponTotal.Text)
            '  f10.Text = CDec(lictotal.Text) + CDec(tartotal.Text) + CDec(unitotal.Text) + CDec(limtotal.Text) + CDec(vuetotal.Text) + CDec(turtotal.Text) + CDec(fretotal.Text) + CDec(dictotal.Text) + CDec(liqtotal.Text) + CDec(renTotal.Text) + CDec(cuiTotal.Text) + CDec(manTotal.Text) + CDec(traTotal.Text) + CDec(ponTotal.Text)

        Catch ex As Exception

        End Try
    End Sub

    Private Sub uni11_ToggleStateChanged(ByVal sender As System.Object, ByVal args As Telerik.WinControls.UI.StateChangedEventArgs) Handles uni11.ToggleStateChanged
        If uni11.Checked = True Then
            uniformes = uniformes + (5 / 12)
            totaleva11.Text = CDec(totaleva11.Text) + 5
        Else
            uniformes = uniformes - (5 / 12)
            totaleva11.Text = CDec(totaleva11.Text) - 5
        End If
        unitotal.Text = Math.Round(uniformes, 2)
        '  f3.Text = Math.Round(uniformes, 2)
        Try
            total.Text = CDec(lictotal.Text) + CDec(tartotal.Text) + CDec(unitotal.Text) + CDec(limtotal.Text) + CDec(vuetotal.Text) + CDec(turtotal.Text) + CDec(fretotal.Text) + CDec(dictotal.Text) + CDec(liqtotal.Text) + CDec(renTotal.Text) + CDec(cuiTotal.Text) + CDec(manTotal.Text) + CDec(traTotal.Text) + CDec(ponTotal.Text)
            '  f10.Text = CDec(lictotal.Text) + CDec(tartotal.Text) + CDec(unitotal.Text) + CDec(limtotal.Text) + CDec(vuetotal.Text) + CDec(turtotal.Text) + CDec(fretotal.Text) + CDec(dictotal.Text) + CDec(liqtotal.Text) + CDec(renTotal.Text) + CDec(cuiTotal.Text) + CDec(manTotal.Text) + CDec(traTotal.Text) + CDec(ponTotal.Text)

        Catch ex As Exception

        End Try
    End Sub

    Private Sub uni12_ToggleStateChanged(ByVal sender As System.Object, ByVal args As Telerik.WinControls.UI.StateChangedEventArgs) Handles uni12.ToggleStateChanged
        If uni12.Checked = True Then
            uniformes = uniformes + (5 / 12)
            totaleva12.Text = CDec(totaleva12.Text) + 5
        Else
            uniformes = uniformes - (5 / 12)
            totaleva12.Text = CDec(totaleva12.Text) - 5
        End If
        unitotal.Text = Math.Round(uniformes, 2)
        'f3.Text = Math.Round(uniformes, 2)
        Try
            total.Text = CDec(lictotal.Text) + CDec(tartotal.Text) + CDec(unitotal.Text) + CDec(limtotal.Text) + CDec(vuetotal.Text) + CDec(turtotal.Text) + CDec(fretotal.Text) + CDec(dictotal.Text) + CDec(liqtotal.Text) + CDec(renTotal.Text) + CDec(cuiTotal.Text) + CDec(manTotal.Text) + CDec(traTotal.Text) + CDec(ponTotal.Text)
            ' f10.Text = CDec(lictotal.Text) + CDec(tartotal.Text) + CDec(unitotal.Text) + CDec(limtotal.Text) + CDec(vuetotal.Text) + CDec(turtotal.Text) + CDec(fretotal.Text) + CDec(dictotal.Text) + CDec(liqtotal.Text) + CDec(renTotal.Text) + CDec(cuiTotal.Text) + CDec(manTotal.Text) + CDec(traTotal.Text) + CDec(ponTotal.Text)

        Catch ex As Exception

        End Try
    End Sub

    Private Sub lim1_ToggleStateChanged(ByVal sender As System.Object, ByVal args As Telerik.WinControls.UI.StateChangedEventArgs) Handles lim1.ToggleStateChanged
        If lim1.Checked = True Then
            limpieza = limpieza + (5 / 12)
            totaleva1.Text = CDec(totaleva1.Text) + 5
        Else
            limpieza = limpieza - (5 / 12)
            totaleva1.Text = CDec(totaleva1.Text) - 5
        End If
        limtotal.Text = Math.Round(limpieza, 2)
        Try
            total.Text = CDec(lictotal.Text) + CDec(tartotal.Text) + CDec(unitotal.Text) + CDec(limtotal.Text) + CDec(vuetotal.Text) + CDec(turtotal.Text) + CDec(fretotal.Text) + CDec(dictotal.Text) + CDec(liqtotal.Text) + CDec(renTotal.Text) + CDec(cuiTotal.Text) + CDec(manTotal.Text) + CDec(traTotal.Text) + CDec(ponTotal.Text)
   
        Catch ex As Exception

        End Try
    End Sub

    Private Sub lim2_ToggleStateChanged(ByVal sender As System.Object, ByVal args As Telerik.WinControls.UI.StateChangedEventArgs) Handles lim2.ToggleStateChanged
        If lim2.Checked = True Then
            limpieza = limpieza + (5 / 12)
            totaleva2.Text = CDec(totaleva2.Text) + 5
        Else
            limpieza = limpieza - (5 / 12)
            totaleva2.Text = CDec(totaleva2.Text) - 5
        End If
        limtotal.Text = Math.Round(limpieza, 2)
        Try
            total.Text = CDec(lictotal.Text) + CDec(tartotal.Text) + CDec(unitotal.Text) + CDec(limtotal.Text) + CDec(vuetotal.Text) + CDec(turtotal.Text) + CDec(fretotal.Text) + CDec(dictotal.Text) + CDec(liqtotal.Text) + CDec(renTotal.Text) + CDec(cuiTotal.Text) + CDec(manTotal.Text) + CDec(traTotal.Text) + CDec(ponTotal.Text)
       
        Catch ex As Exception

        End Try
    End Sub

    Private Sub lim3_ToggleStateChanged(ByVal sender As System.Object, ByVal args As Telerik.WinControls.UI.StateChangedEventArgs) Handles lim3.ToggleStateChanged
        If lim3.Checked = True Then
            limpieza = limpieza + (5 / 12)
            totaleva3.Text = CDec(totaleva3.Text) + 5
        Else
            limpieza = limpieza - (5 / 12)
            totaleva3.Text = CDec(totaleva3.Text) - 5
        End If
        limtotal.Text = Math.Round(limpieza, 2)
        Try
            total.Text = CDec(lictotal.Text) + CDec(tartotal.Text) + CDec(unitotal.Text) + CDec(limtotal.Text) + CDec(vuetotal.Text) + CDec(turtotal.Text) + CDec(fretotal.Text) + CDec(dictotal.Text) + CDec(liqtotal.Text) + CDec(renTotal.Text) + CDec(cuiTotal.Text) + CDec(manTotal.Text) + CDec(traTotal.Text) + CDec(ponTotal.Text)
     
        Catch ex As Exception

        End Try
    End Sub

    Private Sub lim4_ToggleStateChanged(ByVal sender As System.Object, ByVal args As Telerik.WinControls.UI.StateChangedEventArgs) Handles lim4.ToggleStateChanged
        If lim4.Checked = True Then
            limpieza = limpieza + (5 / 12)
            totaleva4.Text = CDec(totaleva4.Text) + 5
        Else
            limpieza = limpieza - (5 / 12)
            totaleva4.Text = CDec(totaleva4.Text) - 5
        End If
        limtotal.Text = Math.Round(limpieza, 2)
        'f4.Text = Math.Round(limpieza, 2)
        Try
            total.Text = CDec(lictotal.Text) + CDec(tartotal.Text) + CDec(unitotal.Text) + CDec(limtotal.Text) + CDec(vuetotal.Text) + CDec(turtotal.Text) + CDec(fretotal.Text) + CDec(dictotal.Text) + CDec(liqtotal.Text) + CDec(renTotal.Text) + CDec(cuiTotal.Text) + CDec(manTotal.Text) + CDec(traTotal.Text) + CDec(ponTotal.Text)
            '    f10.Text = CDec(lictotal.Text) + CDec(tartotal.Text) + CDec(unitotal.Text) + CDec(limtotal.Text) + CDec(vuetotal.Text) + CDec(turtotal.Text) + CDec(fretotal.Text) + CDec(dictotal.Text) + CDec(liqtotal.Text) + CDec(renTotal.Text) + CDec(cuiTotal.Text) + CDec(manTotal.Text) + CDec(traTotal.Text) + CDec(ponTotal.Text)

        Catch ex As Exception

        End Try
    End Sub

    Private Sub lim5_ToggleStateChanged(ByVal sender As System.Object, ByVal args As Telerik.WinControls.UI.StateChangedEventArgs) Handles lim5.ToggleStateChanged
        If lim5.Checked = True Then
            limpieza = limpieza + (5 / 12)
            totaleva5.Text = CDec(totaleva5.Text) + 5
        Else
            limpieza = limpieza - (5 / 12)
            totaleva5.Text = CDec(totaleva5.Text) - 5
        End If
        limtotal.Text = Math.Round(limpieza, 2)
        '  f4.Text = Math.Round(limpieza, 2)
        Try
            total.Text = CDec(lictotal.Text) + CDec(tartotal.Text) + CDec(unitotal.Text) + CDec(limtotal.Text) + CDec(vuetotal.Text) + CDec(turtotal.Text) + CDec(fretotal.Text) + CDec(dictotal.Text) + CDec(liqtotal.Text) + CDec(renTotal.Text) + CDec(cuiTotal.Text) + CDec(manTotal.Text) + CDec(traTotal.Text) + CDec(ponTotal.Text)
            '   f10.Text = CDec(lictotal.Text) + CDec(tartotal.Text) + CDec(unitotal.Text) + CDec(limtotal.Text) + CDec(vuetotal.Text) + CDec(turtotal.Text) + CDec(fretotal.Text) + CDec(dictotal.Text) + CDec(liqtotal.Text) + CDec(renTotal.Text) + CDec(cuiTotal.Text) + CDec(manTotal.Text) + CDec(traTotal.Text) + CDec(ponTotal.Text)

        Catch ex As Exception

        End Try
    End Sub

    Private Sub lim6_ToggleStateChanged(ByVal sender As System.Object, ByVal args As Telerik.WinControls.UI.StateChangedEventArgs) Handles lim6.ToggleStateChanged
        If lim6.Checked = True Then
            limpieza = limpieza + (5 / 12)
            totaleva6.Text = CDec(totaleva6.Text) + 5
        Else
            limpieza = limpieza - (5 / 12)
            totaleva6.Text = CDec(totaleva6.Text) - 5
        End If
        limtotal.Text = Math.Round(limpieza, 2)
        ' f4.Text = Math.Round(limpieza, 2)
        Try
            total.Text = CDec(lictotal.Text) + CDec(tartotal.Text) + CDec(unitotal.Text) + CDec(limtotal.Text) + CDec(vuetotal.Text) + CDec(turtotal.Text) + CDec(fretotal.Text) + CDec(dictotal.Text) + CDec(liqtotal.Text) + CDec(renTotal.Text) + CDec(cuiTotal.Text) + CDec(manTotal.Text) + CDec(traTotal.Text) + CDec(ponTotal.Text)
            '  f10.Text = CDec(lictotal.Text) + CDec(tartotal.Text) + CDec(unitotal.Text) + CDec(limtotal.Text) + CDec(vuetotal.Text) + CDec(turtotal.Text) + CDec(fretotal.Text) + CDec(dictotal.Text) + CDec(liqtotal.Text) + CDec(renTotal.Text) + CDec(cuiTotal.Text) + CDec(manTotal.Text) + CDec(traTotal.Text) + CDec(ponTotal.Text)

        Catch ex As Exception

        End Try
    End Sub

    Private Sub lim7_ToggleStateChanged(ByVal sender As System.Object, ByVal args As Telerik.WinControls.UI.StateChangedEventArgs) Handles lim7.ToggleStateChanged
        If lim7.Checked = True Then
            limpieza = limpieza + (5 / 12)
            totaleva7.Text = CDec(totaleva7.Text) + 5
        Else
            limpieza = limpieza - (5 / 12)
            totaleva7.Text = CDec(totaleva7.Text) - 5
        End If
        limtotal.Text = Math.Round(limpieza, 2)
        '  f4.Text = Math.Round(limpieza, 2)
        Try
            total.Text = CDec(lictotal.Text) + CDec(tartotal.Text) + CDec(unitotal.Text) + CDec(limtotal.Text) + CDec(vuetotal.Text) + CDec(turtotal.Text) + CDec(fretotal.Text) + CDec(dictotal.Text) + CDec(liqtotal.Text) + CDec(renTotal.Text) + CDec(cuiTotal.Text) + CDec(manTotal.Text) + CDec(traTotal.Text) + CDec(ponTotal.Text)
            ' f10.Text = CDec(lictotal.Text) + CDec(tartotal.Text) + CDec(unitotal.Text) + CDec(limtotal.Text) + CDec(vuetotal.Text) + CDec(turtotal.Text) + CDec(fretotal.Text) + CDec(dictotal.Text) + CDec(liqtotal.Text) + CDec(renTotal.Text) + CDec(cuiTotal.Text) + CDec(manTotal.Text) + CDec(traTotal.Text) + CDec(ponTotal.Text)

        Catch ex As Exception

        End Try
    End Sub

    Private Sub lim8_ToggleStateChanged(ByVal sender As System.Object, ByVal args As Telerik.WinControls.UI.StateChangedEventArgs) Handles lim8.ToggleStateChanged
        If lim8.Checked = True Then
            limpieza = limpieza + (5 / 12)
            totaleva8.Text = CDec(totaleva8.Text) + 5
        Else
            limpieza = limpieza - (5 / 12)
            totaleva8.Text = CDec(totaleva8.Text) - 5
        End If
        limtotal.Text = Math.Round(limpieza, 2)
        ' f4.Text = Math.Round(limpieza, 2)
        Try
            total.Text = CDec(lictotal.Text) + CDec(tartotal.Text) + CDec(unitotal.Text) + CDec(limtotal.Text) + CDec(vuetotal.Text) + CDec(turtotal.Text) + CDec(fretotal.Text) + CDec(dictotal.Text) + CDec(liqtotal.Text) + CDec(renTotal.Text) + CDec(cuiTotal.Text) + CDec(manTotal.Text) + CDec(traTotal.Text) + CDec(ponTotal.Text)
            ' f10.Text = CDec(lictotal.Text) + CDec(tartotal.Text) + CDec(unitotal.Text) + CDec(limtotal.Text) + CDec(vuetotal.Text) + CDec(turtotal.Text) + CDec(fretotal.Text) + CDec(dictotal.Text) + CDec(liqtotal.Text) + CDec(renTotal.Text) + CDec(cuiTotal.Text) + CDec(manTotal.Text) + CDec(traTotal.Text) + CDec(ponTotal.Text)

        Catch ex As Exception

        End Try
    End Sub

    Private Sub lim9_ToggleStateChanged(ByVal sender As System.Object, ByVal args As Telerik.WinControls.UI.StateChangedEventArgs) Handles lim9.ToggleStateChanged
        If lim9.Checked = True Then
            limpieza = limpieza + (5 / 12)
            totaleva9.Text = CDec(totaleva9.Text) + 5
        Else
            limpieza = limpieza - (5 / 12)
            totaleva9.Text = CDec(totaleva9.Text) - 5
        End If
        limtotal.Text = Math.Round(limpieza, 2)
        ' f4.Text = Math.Round(limpieza, 2)
        Try
            total.Text = CDec(lictotal.Text) + CDec(tartotal.Text) + CDec(unitotal.Text) + CDec(limtotal.Text) + CDec(vuetotal.Text) + CDec(turtotal.Text) + CDec(fretotal.Text) + CDec(dictotal.Text) + CDec(liqtotal.Text) + CDec(renTotal.Text) + CDec(cuiTotal.Text) + CDec(manTotal.Text) + CDec(traTotal.Text) + CDec(ponTotal.Text)
            ' f10.Text = CDec(lictotal.Text) + CDec(tartotal.Text) + CDec(unitotal.Text) + CDec(limtotal.Text) + CDec(vuetotal.Text) + CDec(turtotal.Text) + CDec(fretotal.Text) + CDec(dictotal.Text) + CDec(liqtotal.Text) + CDec(renTotal.Text) + CDec(cuiTotal.Text) + CDec(manTotal.Text) + CDec(traTotal.Text) + CDec(ponTotal.Text)

        Catch ex As Exception

        End Try
    End Sub

    Private Sub lim10_ToggleStateChanged(ByVal sender As System.Object, ByVal args As Telerik.WinControls.UI.StateChangedEventArgs) Handles lim10.ToggleStateChanged
        If lim10.Checked = True Then
            limpieza = limpieza + (5 / 12)
            totaleva10.Text = CDec(totaleva10.Text) + 5
        Else
            limpieza = limpieza - (5 / 12)
            totaleva10.Text = CDec(totaleva10.Text) - 5
        End If
        limtotal.Text = Math.Round(limpieza, 2)
        'f4.Text = Math.Round(limpieza, 2)
        Try
            total.Text = CDec(lictotal.Text) + CDec(tartotal.Text) + CDec(unitotal.Text) + CDec(limtotal.Text) + CDec(vuetotal.Text) + CDec(turtotal.Text) + CDec(fretotal.Text) + CDec(dictotal.Text) + CDec(liqtotal.Text) + CDec(renTotal.Text) + CDec(cuiTotal.Text) + CDec(manTotal.Text) + CDec(traTotal.Text) + CDec(ponTotal.Text)
            ' f10.Text = CDec(lictotal.Text) + CDec(tartotal.Text) + CDec(unitotal.Text) + CDec(limtotal.Text) + CDec(vuetotal.Text) + CDec(turtotal.Text) + CDec(fretotal.Text) + CDec(dictotal.Text) + CDec(liqtotal.Text) + CDec(renTotal.Text) + CDec(cuiTotal.Text) + CDec(manTotal.Text) + CDec(traTotal.Text) + CDec(ponTotal.Text)

        Catch ex As Exception

        End Try
    End Sub

    Private Sub lim11_ToggleStateChanged(ByVal sender As System.Object, ByVal args As Telerik.WinControls.UI.StateChangedEventArgs) Handles lim11.ToggleStateChanged
        If lim11.Checked = True Then
            limpieza = limpieza + (5 / 12)
            totaleva11.Text = CDec(totaleva11.Text) + 5
        Else
            limpieza = limpieza - (5 / 12)
            totaleva11.Text = CDec(totaleva11.Text) - 5
        End If
        limtotal.Text = Math.Round(limpieza, 2)
        'f4.Text = Math.Round(limpieza, 2)
        Try
            total.Text = CDec(lictotal.Text) + CDec(tartotal.Text) + CDec(unitotal.Text) + CDec(limtotal.Text) + CDec(vuetotal.Text) + CDec(turtotal.Text) + CDec(fretotal.Text) + CDec(dictotal.Text) + CDec(liqtotal.Text) + CDec(renTotal.Text) + CDec(cuiTotal.Text) + CDec(manTotal.Text) + CDec(traTotal.Text) + CDec(ponTotal.Text)
            ' f10.Text = CDec(lictotal.Text) + CDec(tartotal.Text) + CDec(unitotal.Text) + CDec(limtotal.Text) + CDec(vuetotal.Text) + CDec(turtotal.Text) + CDec(fretotal.Text) + CDec(dictotal.Text) + CDec(liqtotal.Text) + CDec(renTotal.Text) + CDec(cuiTotal.Text) + CDec(manTotal.Text) + CDec(traTotal.Text) + CDec(ponTotal.Text)

        Catch ex As Exception

        End Try
    End Sub

    Private Sub lim12_ToggleStateChanged(ByVal sender As System.Object, ByVal args As Telerik.WinControls.UI.StateChangedEventArgs) Handles lim12.ToggleStateChanged
        If lim12.Checked = True Then
            limpieza = limpieza + (5 / 12)
            totaleva12.Text = CDec(totaleva12.Text) + 5
        Else
            limpieza = limpieza - (5 / 12)
            totaleva12.Text = CDec(totaleva12.Text) - 5
        End If
        limtotal.Text = Math.Round(limpieza, 2)
        ' f4.Text = Math.Round(limpieza, 2)
        Try
            total.Text = CDec(lictotal.Text) + CDec(tartotal.Text) + CDec(unitotal.Text) + CDec(limtotal.Text) + CDec(vuetotal.Text) + CDec(turtotal.Text) + CDec(fretotal.Text) + CDec(dictotal.Text) + CDec(liqtotal.Text) + CDec(renTotal.Text) + CDec(cuiTotal.Text) + CDec(manTotal.Text) + CDec(traTotal.Text) + CDec(ponTotal.Text)
            '  f10.Text = CDec(lictotal.Text) + CDec(tartotal.Text) + CDec(unitotal.Text) + CDec(limtotal.Text) + CDec(vuetotal.Text) + CDec(turtotal.Text) + CDec(fretotal.Text) + CDec(dictotal.Text) + CDec(liqtotal.Text) + CDec(renTotal.Text) + CDec(cuiTotal.Text) + CDec(manTotal.Text) + CDec(traTotal.Text) + CDec(ponTotal.Text)

        Catch ex As Exception

        End Try
    End Sub

    Private Sub vue1_ToggleStateChanged(ByVal sender As System.Object, ByVal args As Telerik.WinControls.UI.StateChangedEventArgs) Handles vue1.ToggleStateChanged
        If vue1.Checked = True Then
            vueltas = vueltas + (4 / 12)
            totaleva1.Text = CDec(totaleva1.Text) + 4
        Else
            vueltas = vueltas - (4 / 12)
            totaleva1.Text = CDec(totaleva1.Text) - 4
        End If
        vuetotal.Text = Math.Round(vueltas, 2)

        Try
            total.Text = CDec(lictotal.Text) + CDec(tartotal.Text) + CDec(unitotal.Text) + CDec(limtotal.Text) + CDec(vuetotal.Text) + CDec(turtotal.Text) + CDec(fretotal.Text) + CDec(dictotal.Text) + CDec(liqtotal.Text) + CDec(renTotal.Text) + CDec(cuiTotal.Text) + CDec(manTotal.Text) + CDec(traTotal.Text) + CDec(ponTotal.Text)
        Catch ex As Exception

        End Try
    End Sub

    Private Sub vue2_ToggleStateChanged(ByVal sender As System.Object, ByVal args As Telerik.WinControls.UI.StateChangedEventArgs) Handles vue2.ToggleStateChanged
        If vue2.Checked = True Then
            vueltas = vueltas + (4 / 12)
            totaleva2.Text = CDec(totaleva2.Text) + 4
        Else
            vueltas = vueltas - (4 / 12)
            totaleva2.Text = CDec(totaleva2.Text) - 4
        End If
        vuetotal.Text = Math.Round(vueltas, 2)
        Try
            total.Text = CDec(lictotal.Text) + CDec(tartotal.Text) + CDec(unitotal.Text) + CDec(limtotal.Text) + CDec(vuetotal.Text) + CDec(turtotal.Text) + CDec(fretotal.Text) + CDec(dictotal.Text) + CDec(liqtotal.Text) + CDec(renTotal.Text) + CDec(cuiTotal.Text) + CDec(manTotal.Text) + CDec(traTotal.Text) + CDec(ponTotal.Text)
      
        Catch ex As Exception

        End Try
    End Sub

    Private Sub vue3_ToggleStateChanged(ByVal sender As System.Object, ByVal args As Telerik.WinControls.UI.StateChangedEventArgs) Handles vue3.ToggleStateChanged
        If vue3.Checked = True Then
            vueltas = vueltas + (4 / 12)
            totaleva3.Text = CDec(totaleva3.Text) + 4
        Else
            vueltas = vueltas - (4 / 12)
            totaleva3.Text = CDec(totaleva3.Text) - 4
        End If
        vuetotal.Text = Math.Round(vueltas, 2)
        Try
            total.Text = CDec(lictotal.Text) + CDec(tartotal.Text) + CDec(unitotal.Text) + CDec(limtotal.Text) + CDec(vuetotal.Text) + CDec(turtotal.Text) + CDec(fretotal.Text) + CDec(dictotal.Text) + CDec(liqtotal.Text) + CDec(renTotal.Text) + CDec(cuiTotal.Text) + CDec(manTotal.Text) + CDec(traTotal.Text) + CDec(ponTotal.Text)
       
        Catch ex As Exception

        End Try
    End Sub

    Private Sub vue4_ToggleStateChanged(ByVal sender As System.Object, ByVal args As Telerik.WinControls.UI.StateChangedEventArgs) Handles vue4.ToggleStateChanged
        If vue4.Checked = True Then
            vueltas = vueltas + (4 / 12)
            totaleva4.Text = CDec(totaleva4.Text) + 4
        Else
            vueltas = vueltas - (4 / 12)
            totaleva4.Text = CDec(totaleva4.Text) - 4
        End If
        vuetotal.Text = Math.Round(vueltas, 2)
        Try
            total.Text = CDec(lictotal.Text) + CDec(tartotal.Text) + CDec(unitotal.Text) + CDec(limtotal.Text) + CDec(vuetotal.Text) + CDec(turtotal.Text) + CDec(fretotal.Text) + CDec(dictotal.Text) + CDec(liqtotal.Text) + CDec(renTotal.Text) + CDec(cuiTotal.Text) + CDec(manTotal.Text) + CDec(traTotal.Text) + CDec(ponTotal.Text)
     
        Catch ex As Exception

        End Try
    End Sub

    Private Sub vue5_ToggleStateChanged(ByVal sender As System.Object, ByVal args As Telerik.WinControls.UI.StateChangedEventArgs) Handles vue5.ToggleStateChanged
        If vue5.Checked = True Then
            vueltas = vueltas + (4 / 12)
            totaleva5.Text = CDec(totaleva5.Text) + 4
        Else
            vueltas = vueltas - (4 / 12)
            totaleva5.Text = CDec(totaleva5.Text) - 4
        End If
        vuetotal.Text = Math.Round(vueltas, 2)
        Try
            total.Text = CDec(lictotal.Text) + CDec(tartotal.Text) + CDec(unitotal.Text) + CDec(limtotal.Text) + CDec(vuetotal.Text) + CDec(turtotal.Text) + CDec(fretotal.Text) + CDec(dictotal.Text) + CDec(liqtotal.Text) + CDec(renTotal.Text) + CDec(cuiTotal.Text) + CDec(manTotal.Text) + CDec(traTotal.Text) + CDec(ponTotal.Text)
      
        Catch ex As Exception
        End Try
    End Sub

    Private Sub vue6_ToggleStateChanged(ByVal sender As System.Object, ByVal args As Telerik.WinControls.UI.StateChangedEventArgs) Handles vue6.ToggleStateChanged
        If vue6.Checked = True Then
            vueltas = vueltas + (4 / 12)
            totaleva6.Text = CDec(totaleva6.Text) + 4
        Else
            vueltas = vueltas - (4 / 12)
            totaleva6.Text = CDec(totaleva6.Text) - 4
        End If
        vuetotal.Text = Math.Round(vueltas, 2)
        Try
            total.Text = CDec(lictotal.Text) + CDec(tartotal.Text) + CDec(unitotal.Text) + CDec(limtotal.Text) + CDec(vuetotal.Text) + CDec(turtotal.Text) + CDec(fretotal.Text) + CDec(dictotal.Text) + CDec(liqtotal.Text) + CDec(renTotal.Text) + CDec(cuiTotal.Text) + CDec(manTotal.Text) + CDec(traTotal.Text) + CDec(ponTotal.Text)
     
        Catch ex As Exception

        End Try
    End Sub

    Private Sub vue7_ToggleStateChanged(ByVal sender As System.Object, ByVal args As Telerik.WinControls.UI.StateChangedEventArgs) Handles vue7.ToggleStateChanged
        If vue7.Checked = True Then
            vueltas = vueltas + (4 / 12)
            totaleva7.Text = CDec(totaleva7.Text) + 4
        Else
            vueltas = vueltas - (4 / 12)
            totaleva7.Text = CDec(totaleva7.Text) - 4
        End If
        vuetotal.Text = Math.Round(vueltas, 2)
        Try
            total.Text = CDec(lictotal.Text) + CDec(tartotal.Text) + CDec(unitotal.Text) + CDec(limtotal.Text) + CDec(vuetotal.Text) + CDec(turtotal.Text) + CDec(fretotal.Text) + CDec(dictotal.Text) + CDec(liqtotal.Text) + CDec(renTotal.Text) + CDec(cuiTotal.Text) + CDec(manTotal.Text) + CDec(traTotal.Text) + CDec(ponTotal.Text)
      
        Catch ex As Exception

        End Try
    End Sub

    Private Sub vue8_ToggleStateChanged(ByVal sender As System.Object, ByVal args As Telerik.WinControls.UI.StateChangedEventArgs) Handles vue8.ToggleStateChanged
        If vue8.Checked = True Then
            vueltas = vueltas + (4 / 12)
            totaleva8.Text = CDec(totaleva8.Text) + 4
        Else
            vueltas = vueltas - (4 / 12)
            totaleva8.Text = CDec(totaleva8.Text) - 4
        End If
        vuetotal.Text = Math.Round(vueltas, 2)
        Try
            total.Text = CDec(lictotal.Text) + CDec(tartotal.Text) + CDec(unitotal.Text) + CDec(limtotal.Text) + CDec(vuetotal.Text) + CDec(turtotal.Text) + CDec(fretotal.Text) + CDec(dictotal.Text) + CDec(liqtotal.Text) + CDec(renTotal.Text) + CDec(cuiTotal.Text) + CDec(manTotal.Text) + CDec(traTotal.Text) + CDec(ponTotal.Text)
      
        Catch ex As Exception

        End Try
    End Sub

    Private Sub vue9_ToggleStateChanged(ByVal sender As System.Object, ByVal args As Telerik.WinControls.UI.StateChangedEventArgs) Handles vue9.ToggleStateChanged
        If vue9.Checked = True Then
            vueltas = vueltas + (4 / 12)
            totaleva9.Text = CDec(totaleva9.Text) + 4
        Else
            vueltas = vueltas - (4 / 12)
            totaleva9.Text = CDec(totaleva9.Text) - 4
        End If
        vuetotal.Text = Math.Round(vueltas, 2)
        Try
            total.Text = CDec(lictotal.Text) + CDec(tartotal.Text) + CDec(unitotal.Text) + CDec(limtotal.Text) + CDec(vuetotal.Text) + CDec(turtotal.Text) + CDec(fretotal.Text) + CDec(dictotal.Text) + CDec(liqtotal.Text) + CDec(renTotal.Text) + CDec(cuiTotal.Text) + CDec(manTotal.Text) + CDec(traTotal.Text) + CDec(ponTotal.Text)
      
        Catch ex As Exception

        End Try
    End Sub

    Private Sub vue10_ToggleStateChanged(ByVal sender As System.Object, ByVal args As Telerik.WinControls.UI.StateChangedEventArgs) Handles vue10.ToggleStateChanged
        If vue10.Checked = True Then
            vueltas = vueltas + (4 / 12)
            totaleva10.Text = CDec(totaleva10.Text) + 4
        Else
            vueltas = vueltas - (4 / 12)
            totaleva10.Text = CDec(totaleva10.Text) - 4
        End If
        vuetotal.Text = Math.Round(vueltas, 2)
        Try
            total.Text = CDec(lictotal.Text) + CDec(tartotal.Text) + CDec(unitotal.Text) + CDec(limtotal.Text) + CDec(vuetotal.Text) + CDec(turtotal.Text) + CDec(fretotal.Text) + CDec(dictotal.Text) + CDec(liqtotal.Text) + CDec(renTotal.Text) + CDec(cuiTotal.Text) + CDec(manTotal.Text) + CDec(traTotal.Text) + CDec(ponTotal.Text)
     
        Catch ex As Exception

        End Try
    End Sub

    Private Sub vue11_ToggleStateChanged(ByVal sender As System.Object, ByVal args As Telerik.WinControls.UI.StateChangedEventArgs) Handles vue11.ToggleStateChanged
        If vue11.Checked = True Then
            vueltas = vueltas + (4 / 12)
            totaleva11.Text = CDec(totaleva11.Text) + 4
        Else
            vueltas = vueltas - (4 / 12)
            totaleva11.Text = CDec(totaleva11.Text) - 4
        End If
        vuetotal.Text = Math.Round(vueltas, 2)
        Try
            total.Text = CDec(lictotal.Text) + CDec(tartotal.Text) + CDec(unitotal.Text) + CDec(limtotal.Text) + CDec(vuetotal.Text) + CDec(turtotal.Text) + CDec(fretotal.Text) + CDec(dictotal.Text) + CDec(liqtotal.Text) + CDec(renTotal.Text) + CDec(cuiTotal.Text) + CDec(manTotal.Text) + CDec(traTotal.Text) + CDec(ponTotal.Text)
  
        Catch ex As Exception

        End Try
    End Sub

    Private Sub vue12_ToggleStateChanged(ByVal sender As System.Object, ByVal args As Telerik.WinControls.UI.StateChangedEventArgs) Handles vue12.ToggleStateChanged
        If vue12.Checked = True Then
            vueltas = vueltas + (4 / 12)
            totaleva12.Text = CDec(totaleva12.Text) + 4
        Else
            vueltas = vueltas - (4 / 12)
            totaleva12.Text = CDec(totaleva12.Text) - 4
        End If
        vuetotal.Text = Math.Round(vueltas, 2)
        Try
            total.Text = CDec(lictotal.Text) + CDec(tartotal.Text) + CDec(unitotal.Text) + CDec(limtotal.Text) + CDec(vuetotal.Text) + CDec(turtotal.Text) + CDec(fretotal.Text) + CDec(dictotal.Text) + CDec(liqtotal.Text) + CDec(renTotal.Text) + CDec(cuiTotal.Text) + CDec(manTotal.Text) + CDec(traTotal.Text) + CDec(ponTotal.Text)
     
        Catch ex As Exception
        End Try
    End Sub

    Private Sub tur1_ToggleStateChanged(ByVal sender As System.Object, ByVal args As Telerik.WinControls.UI.StateChangedEventArgs) Handles tur1.ToggleStateChanged
        If tur1.Checked = True Then
            turnos = turnos + (4 / 12)
            totaleva1.Text = CDec(totaleva1.Text) + 4
        Else
            turnos = turnos - (4 / 12)
            totaleva1.Text = CDec(totaleva1.Text) - 4
        End If
        turtotal.Text = Math.Round(turnos, 2)
        Try
            total.Text = CDec(lictotal.Text) + CDec(tartotal.Text) + CDec(unitotal.Text) + CDec(limtotal.Text) + CDec(vuetotal.Text) + CDec(turtotal.Text) + CDec(fretotal.Text) + CDec(dictotal.Text) + CDec(liqtotal.Text) + CDec(renTotal.Text) + CDec(cuiTotal.Text) + CDec(manTotal.Text) + CDec(traTotal.Text) + CDec(ponTotal.Text)
     
        Catch ex As Exception

        End Try
    End Sub

    Private Sub tur2_ToggleStateChanged(ByVal sender As System.Object, ByVal args As Telerik.WinControls.UI.StateChangedEventArgs) Handles tur2.ToggleStateChanged
        If tur2.Checked = True Then
            turnos = turnos + (4 / 12)
            totaleva2.Text = CDec(totaleva2.Text) + 4
        Else
            turnos = turnos - (4 / 12)
            totaleva2.Text = CDec(totaleva2.Text) - 4
        End If
        turtotal.Text = Math.Round(turnos, 2)
        Try
            total.Text = CDec(lictotal.Text) + CDec(tartotal.Text) + CDec(unitotal.Text) + CDec(limtotal.Text) + CDec(vuetotal.Text) + CDec(turtotal.Text) + CDec(fretotal.Text) + CDec(dictotal.Text) + CDec(liqtotal.Text) + CDec(renTotal.Text) + CDec(cuiTotal.Text) + CDec(manTotal.Text) + CDec(traTotal.Text) + CDec(ponTotal.Text)
  
        Catch ex As Exception
        End Try
    End Sub

    Private Sub tur3_ToggleStateChanged(ByVal sender As System.Object, ByVal args As Telerik.WinControls.UI.StateChangedEventArgs) Handles tur3.ToggleStateChanged
        If tur3.Checked = True Then
            turnos = turnos + (4 / 12)
            totaleva3.Text = CDec(totaleva3.Text) + 4
        Else
            turnos = turnos - (4 / 12)
            totaleva3.Text = CDec(totaleva3.Text) - 4
        End If
        turtotal.Text = Math.Round(turnos, 2)
        Try
            total.Text = CDec(lictotal.Text) + CDec(tartotal.Text) + CDec(unitotal.Text) + CDec(limtotal.Text) + CDec(vuetotal.Text) + CDec(turtotal.Text) + CDec(fretotal.Text) + CDec(dictotal.Text) + CDec(liqtotal.Text) + CDec(renTotal.Text) + CDec(cuiTotal.Text) + CDec(manTotal.Text) + CDec(traTotal.Text) + CDec(ponTotal.Text)
    
        Catch ex As Exception
        End Try
    End Sub

    Private Sub tur4_ToggleStateChanged(ByVal sender As System.Object, ByVal args As Telerik.WinControls.UI.StateChangedEventArgs) Handles tur4.ToggleStateChanged
        If tur4.Checked = True Then
            turnos = turnos + (4 / 12)
            totaleva4.Text = CDec(totaleva4.Text) + 4
        Else
            turnos = turnos - (4 / 12)
            totaleva4.Text = CDec(totaleva4.Text) - 4
        End If
        turtotal.Text = Math.Round(turnos, 2)
        Try
            total.Text = CDec(lictotal.Text) + CDec(tartotal.Text) + CDec(unitotal.Text) + CDec(limtotal.Text) + CDec(vuetotal.Text) + CDec(turtotal.Text) + CDec(fretotal.Text) + CDec(dictotal.Text) + CDec(liqtotal.Text) + CDec(renTotal.Text) + CDec(cuiTotal.Text) + CDec(manTotal.Text) + CDec(traTotal.Text) + CDec(ponTotal.Text)
    
        Catch ex As Exception

        End Try
    End Sub

    Private Sub tur5_ToggleStateChanged(ByVal sender As System.Object, ByVal args As Telerik.WinControls.UI.StateChangedEventArgs) Handles tur5.ToggleStateChanged
        If tur5.Checked = True Then
            turnos = turnos + (4 / 12)
            totaleva5.Text = CDec(totaleva5.Text) + 4
        Else
            turnos = turnos - (4 / 12)
            totaleva5.Text = CDec(totaleva5.Text) - 4
        End If
        turtotal.Text = Math.Round(turnos, 2)
        Try
            total.Text = CDec(lictotal.Text) + CDec(tartotal.Text) + CDec(unitotal.Text) + CDec(limtotal.Text) + CDec(vuetotal.Text) + CDec(turtotal.Text) + CDec(fretotal.Text) + CDec(dictotal.Text) + CDec(liqtotal.Text) + CDec(renTotal.Text) + CDec(cuiTotal.Text) + CDec(manTotal.Text) + CDec(traTotal.Text) + CDec(ponTotal.Text)
     
        Catch ex As Exception

        End Try
    End Sub

    Private Sub tur6_ToggleStateChanged(ByVal sender As System.Object, ByVal args As Telerik.WinControls.UI.StateChangedEventArgs) Handles tur6.ToggleStateChanged
        If tur6.Checked = True Then
            turnos = turnos + (4 / 12)
            totaleva6.Text = CDec(totaleva6.Text) + 4
        Else
            turnos = turnos - (4 / 12)
            totaleva6.Text = CDec(totaleva6.Text) - 4
        End If
        turtotal.Text = Math.Round(turnos, 2)
        Try
            total.Text = CDec(lictotal.Text) + CDec(tartotal.Text) + CDec(unitotal.Text) + CDec(limtotal.Text) + CDec(vuetotal.Text) + CDec(turtotal.Text) + CDec(fretotal.Text) + CDec(dictotal.Text) + CDec(liqtotal.Text) + CDec(renTotal.Text) + CDec(cuiTotal.Text) + CDec(manTotal.Text) + CDec(traTotal.Text) + CDec(ponTotal.Text)
     
        Catch ex As Exception
        End Try
    End Sub

    Private Sub tur7_ToggleStateChanged(ByVal sender As System.Object, ByVal args As Telerik.WinControls.UI.StateChangedEventArgs) Handles tur7.ToggleStateChanged
        If tur7.Checked = True Then
            turnos = turnos + (4 / 12)
            totaleva7.Text = CDec(totaleva7.Text) + 4
        Else
            turnos = turnos - (4 / 12)
            totaleva7.Text = CDec(totaleva7.Text) - 4
        End If
        turtotal.Text = Math.Round(turnos, 2)
        Try
            total.Text = CDec(lictotal.Text) + CDec(tartotal.Text) + CDec(unitotal.Text) + CDec(limtotal.Text) + CDec(vuetotal.Text) + CDec(turtotal.Text) + CDec(fretotal.Text) + CDec(dictotal.Text) + CDec(liqtotal.Text) + CDec(renTotal.Text) + CDec(cuiTotal.Text) + CDec(manTotal.Text) + CDec(traTotal.Text) + CDec(ponTotal.Text)
    
        Catch ex As Exception
        End Try
    End Sub

    Private Sub tur8_ToggleStateChanged(ByVal sender As System.Object, ByVal args As Telerik.WinControls.UI.StateChangedEventArgs) Handles tur8.ToggleStateChanged
        If tur8.Checked = True Then
            turnos = turnos + (4 / 12)
            totaleva8.Text = CDec(totaleva8.Text) + 4
        Else
            turnos = turnos - (4 / 12)
            totaleva8.Text = CDec(totaleva8.Text) - 4
        End If
        turtotal.Text = Math.Round(turnos, 2)
        Try
            total.Text = CDec(lictotal.Text) + CDec(tartotal.Text) + CDec(unitotal.Text) + CDec(limtotal.Text) + CDec(vuetotal.Text) + CDec(turtotal.Text) + CDec(fretotal.Text) + CDec(dictotal.Text) + CDec(liqtotal.Text) + CDec(renTotal.Text) + CDec(cuiTotal.Text) + CDec(manTotal.Text) + CDec(traTotal.Text) + CDec(ponTotal.Text)
    
        Catch ex As Exception
        End Try
    End Sub

    Private Sub tur9_ToggleStateChanged(ByVal sender As System.Object, ByVal args As Telerik.WinControls.UI.StateChangedEventArgs) Handles tur9.ToggleStateChanged
        If tur9.Checked = True Then
            turnos = turnos + (4 / 12)
            totaleva9.Text = CDec(totaleva9.Text) + 4
        Else
            turnos = turnos - (4 / 12)
            totaleva9.Text = CDec(totaleva9.Text) - 4
        End If
        turtotal.Text = Math.Round(turnos, 2)
        Try
            total.Text = CDec(lictotal.Text) + CDec(tartotal.Text) + CDec(unitotal.Text) + CDec(limtotal.Text) + CDec(vuetotal.Text) + CDec(turtotal.Text) + CDec(fretotal.Text) + CDec(dictotal.Text) + CDec(liqtotal.Text) + CDec(renTotal.Text) + CDec(cuiTotal.Text) + CDec(manTotal.Text) + CDec(traTotal.Text) + CDec(ponTotal.Text)
  
        Catch ex As Exception

        End Try
    End Sub

    Private Sub tur10_ToggleStateChanged(ByVal sender As System.Object, ByVal args As Telerik.WinControls.UI.StateChangedEventArgs) Handles tur10.ToggleStateChanged
        If tur10.Checked = True Then
            turnos = turnos + (4 / 12)
            totaleva10.Text = CDec(totaleva10.Text) + 4
        Else
            turnos = turnos - (4 / 12)
            totaleva10.Text = CDec(totaleva10.Text) - 4
        End If
        turtotal.Text = Math.Round(turnos, 2)
        Try
            total.Text = CDec(lictotal.Text) + CDec(tartotal.Text) + CDec(unitotal.Text) + CDec(limtotal.Text) + CDec(vuetotal.Text) + CDec(turtotal.Text) + CDec(fretotal.Text) + CDec(dictotal.Text) + CDec(liqtotal.Text) + CDec(renTotal.Text) + CDec(cuiTotal.Text) + CDec(manTotal.Text) + CDec(traTotal.Text) + CDec(ponTotal.Text)
    
        Catch ex As Exception

        End Try
    End Sub

    Private Sub tur11_ToggleStateChanged(ByVal sender As System.Object, ByVal args As Telerik.WinControls.UI.StateChangedEventArgs) Handles tur11.ToggleStateChanged
        If tur11.Checked = True Then
            turnos = turnos + (4 / 12)
            totaleva11.Text = CDec(totaleva11.Text) + 4
        Else
            turnos = turnos - (4 / 12)
            totaleva11.Text = CDec(totaleva11.Text) - 4
        End If
        turtotal.Text = Math.Round(turnos, 2)
        Try
            total.Text = CDec(lictotal.Text) + CDec(tartotal.Text) + CDec(unitotal.Text) + CDec(limtotal.Text) + CDec(vuetotal.Text) + CDec(turtotal.Text) + CDec(fretotal.Text) + CDec(dictotal.Text) + CDec(liqtotal.Text) + CDec(renTotal.Text) + CDec(cuiTotal.Text) + CDec(manTotal.Text) + CDec(traTotal.Text) + CDec(ponTotal.Text)
     
        Catch ex As Exception

        End Try
    End Sub

    Private Sub tur12_ToggleStateChanged(ByVal sender As System.Object, ByVal args As Telerik.WinControls.UI.StateChangedEventArgs) Handles tur12.ToggleStateChanged
        If tur12.Checked = True Then
            turnos = turnos + (4 / 12)
            totaleva12.Text = CDec(totaleva12.Text) + 4
        Else
            turnos = turnos - (4 / 12)
            totaleva12.Text = CDec(totaleva12.Text) - 4
        End If
        turtotal.Text = Math.Round(turnos, 2)
        Try
            total.Text = CDec(lictotal.Text) + CDec(tartotal.Text) + CDec(unitotal.Text) + CDec(limtotal.Text) + CDec(vuetotal.Text) + CDec(turtotal.Text) + CDec(fretotal.Text) + CDec(dictotal.Text) + CDec(liqtotal.Text) + CDec(renTotal.Text) + CDec(cuiTotal.Text) + CDec(manTotal.Text) + CDec(traTotal.Text) + CDec(ponTotal.Text)
     
        Catch ex As Exception

        End Try
    End Sub

    Private Sub fre1_ToggleStateChanged(ByVal sender As System.Object, ByVal args As Telerik.WinControls.UI.StateChangedEventArgs) Handles fre1.ToggleStateChanged
        If fre1.Checked = True Then
            frecuencia = frecuencia + (4 / 12)
            totaleva1.Text = CDec(totaleva1.Text) + 4
        Else
            frecuencia = frecuencia - (4 / 12)
            totaleva1.Text = CDec(totaleva1.Text) - 4
        End If
        fretotal.Text = Math.Round(frecuencia, 2)
        Try
            total.Text = CDec(lictotal.Text) + CDec(tartotal.Text) + CDec(unitotal.Text) + CDec(limtotal.Text) + CDec(vuetotal.Text) + CDec(turtotal.Text) + CDec(fretotal.Text) + CDec(dictotal.Text) + CDec(liqtotal.Text) + CDec(renTotal.Text) + CDec(cuiTotal.Text) + CDec(manTotal.Text) + CDec(traTotal.Text) + CDec(ponTotal.Text)
    
        Catch ex As Exception

        End Try
    End Sub

    Private Sub frec2_ToggleStateChanged(ByVal sender As System.Object, ByVal args As Telerik.WinControls.UI.StateChangedEventArgs) Handles frec2.ToggleStateChanged
        If frec2.Checked = True Then
            frecuencia = frecuencia + (4 / 12)
            totaleva2.Text = CDec(totaleva2.Text) + 4
        Else
            frecuencia = frecuencia - (4 / 12)
            totaleva2.Text = CDec(totaleva2.Text) - 4
        End If
        fretotal.Text = Math.Round(frecuencia, 2)
        Try
            total.Text = CDec(lictotal.Text) + CDec(tartotal.Text) + CDec(unitotal.Text) + CDec(limtotal.Text) + CDec(vuetotal.Text) + CDec(turtotal.Text) + CDec(fretotal.Text) + CDec(dictotal.Text) + CDec(liqtotal.Text) + CDec(renTotal.Text) + CDec(cuiTotal.Text) + CDec(manTotal.Text) + CDec(traTotal.Text) + CDec(ponTotal.Text)
    
        Catch ex As Exception

        End Try
    End Sub

    Private Sub fre3_ToggleStateChanged(ByVal sender As System.Object, ByVal args As Telerik.WinControls.UI.StateChangedEventArgs) Handles fre3.ToggleStateChanged
        If fre3.Checked = True Then
            frecuencia = frecuencia + (4 / 12)
            totaleva3.Text = CDec(totaleva3.Text) + 4
        Else
            frecuencia = frecuencia - (4 / 12)
            totaleva3.Text = CDec(totaleva3.Text) - 4
        End If
        fretotal.Text = Math.Round(frecuencia, 2)
        Try
            total.Text = CDec(lictotal.Text) + CDec(tartotal.Text) + CDec(unitotal.Text) + CDec(limtotal.Text) + CDec(vuetotal.Text) + CDec(turtotal.Text) + CDec(fretotal.Text) + CDec(dictotal.Text) + CDec(liqtotal.Text) + CDec(renTotal.Text) + CDec(cuiTotal.Text) + CDec(manTotal.Text) + CDec(traTotal.Text) + CDec(ponTotal.Text)
   
        Catch ex As Exception

        End Try
    End Sub

    Private Sub fre4_ToggleStateChanged(ByVal sender As System.Object, ByVal args As Telerik.WinControls.UI.StateChangedEventArgs) Handles fre4.ToggleStateChanged
        If fre4.Checked = True Then
            frecuencia = frecuencia + (4 / 12)
            totaleva4.Text = CDec(totaleva4.Text) + 4
        Else
            frecuencia = frecuencia - (4 / 12)
            totaleva4.Text = CDec(totaleva4.Text) - 4
        End If
        fretotal.Text = Math.Round(frecuencia, 2)
        Try
            total.Text = CDec(lictotal.Text) + CDec(tartotal.Text) + CDec(unitotal.Text) + CDec(limtotal.Text) + CDec(vuetotal.Text) + CDec(turtotal.Text) + CDec(fretotal.Text) + CDec(dictotal.Text) + CDec(liqtotal.Text) + CDec(renTotal.Text) + CDec(cuiTotal.Text) + CDec(manTotal.Text) + CDec(traTotal.Text) + CDec(ponTotal.Text)
      
        Catch ex As Exception

        End Try
    End Sub

    Private Sub fre5_ToggleStateChanged(ByVal sender As System.Object, ByVal args As Telerik.WinControls.UI.StateChangedEventArgs) Handles fre5.ToggleStateChanged
        If fre5.Checked = True Then
            frecuencia = frecuencia + (4 / 12)
            totaleva5.Text = CDec(totaleva5.Text) + 4
        Else
            frecuencia = frecuencia - (4 / 12)
            totaleva5.Text = CDec(totaleva5.Text) - 4
        End If
        fretotal.Text = Math.Round(frecuencia, 2)
       Try
            total.Text = CDec(lictotal.Text) + CDec(tartotal.Text) + CDec(unitotal.Text) + CDec(limtotal.Text) + CDec(vuetotal.Text) + CDec(turtotal.Text) + CDec(fretotal.Text) + CDec(dictotal.Text) + CDec(liqtotal.Text) + CDec(renTotal.Text) + CDec(cuiTotal.Text) + CDec(manTotal.Text) + CDec(traTotal.Text) + CDec(ponTotal.Text)
   
        Catch ex As Exception

        End Try
    End Sub

    Private Sub fre6_ToggleStateChanged(ByVal sender As System.Object, ByVal args As Telerik.WinControls.UI.StateChangedEventArgs) Handles fre6.ToggleStateChanged
        If fre6.Checked = True Then
            frecuencia = frecuencia + (4 / 12)
            totaleva6.Text = CDec(totaleva6.Text) + 4
        Else
            frecuencia = frecuencia - (4 / 12)
            totaleva6.Text = CDec(totaleva6.Text) - 4
        End If
        fretotal.Text = Math.Round(frecuencia, 2)
        Try
            total.Text = CDec(lictotal.Text) + CDec(tartotal.Text) + CDec(unitotal.Text) + CDec(limtotal.Text) + CDec(vuetotal.Text) + CDec(turtotal.Text) + CDec(fretotal.Text) + CDec(dictotal.Text) + CDec(liqtotal.Text) + CDec(renTotal.Text) + CDec(cuiTotal.Text) + CDec(manTotal.Text) + CDec(traTotal.Text) + CDec(ponTotal.Text)
     
        Catch ex As Exception

        End Try
    End Sub

    Private Sub fre7_ToggleStateChanged(ByVal sender As System.Object, ByVal args As Telerik.WinControls.UI.StateChangedEventArgs) Handles fre7.ToggleStateChanged
        If fre7.Checked = True Then
            frecuencia = frecuencia + (4 / 12)
            totaleva7.Text = CDec(totaleva7.Text) + 4
        Else
            frecuencia = frecuencia - (4 / 12)
            totaleva7.Text = CDec(totaleva7.Text) - 4
        End If
        fretotal.Text = Math.Round(frecuencia, 2)
        Try
            total.Text = CDec(lictotal.Text) + CDec(tartotal.Text) + CDec(unitotal.Text) + CDec(limtotal.Text) + CDec(vuetotal.Text) + CDec(turtotal.Text) + CDec(fretotal.Text) + CDec(dictotal.Text) + CDec(liqtotal.Text) + CDec(renTotal.Text) + CDec(cuiTotal.Text) + CDec(manTotal.Text) + CDec(traTotal.Text) + CDec(ponTotal.Text)
    
        Catch ex As Exception

        End Try
    End Sub

    Private Sub fre8_ToggleStateChanged(ByVal sender As System.Object, ByVal args As Telerik.WinControls.UI.StateChangedEventArgs) Handles fre8.ToggleStateChanged
        If fre8.Checked = True Then
            frecuencia = frecuencia + (4 / 12)
            totaleva8.Text = CDec(totaleva8.Text) + 4
        Else
            frecuencia = frecuencia - (4 / 12)
            totaleva8.Text = CDec(totaleva8.Text) - 4
        End If
        fretotal.Text = Math.Round(frecuencia, 2)
        Try
            total.Text = CDec(lictotal.Text) + CDec(tartotal.Text) + CDec(unitotal.Text) + CDec(limtotal.Text) + CDec(vuetotal.Text) + CDec(turtotal.Text) + CDec(fretotal.Text) + CDec(dictotal.Text) + CDec(liqtotal.Text) + CDec(renTotal.Text) + CDec(cuiTotal.Text) + CDec(manTotal.Text) + CDec(traTotal.Text) + CDec(ponTotal.Text)
    
        Catch ex As Exception

        End Try
    End Sub

    Private Sub fre9_ToggleStateChanged(ByVal sender As System.Object, ByVal args As Telerik.WinControls.UI.StateChangedEventArgs) Handles fre9.ToggleStateChanged
        If fre9.Checked = True Then
            frecuencia = frecuencia + (4 / 12)
            totaleva9.Text = CDec(totaleva9.Text) + 4
        Else
            frecuencia = frecuencia - (4 / 12)
            totaleva9.Text = CDec(totaleva9.Text) - 4
        End If
        fretotal.Text = Math.Round(frecuencia, 2)
        Try
            total.Text = CDec(lictotal.Text) + CDec(tartotal.Text) + CDec(unitotal.Text) + CDec(limtotal.Text) + CDec(vuetotal.Text) + CDec(turtotal.Text) + CDec(fretotal.Text) + CDec(dictotal.Text) + CDec(liqtotal.Text) + CDec(renTotal.Text) + CDec(cuiTotal.Text) + CDec(manTotal.Text) + CDec(traTotal.Text) + CDec(ponTotal.Text)
      
        Catch ex As Exception

        End Try
    End Sub

    Private Sub fre10_ToggleStateChanged(ByVal sender As System.Object, ByVal args As Telerik.WinControls.UI.StateChangedEventArgs) Handles fre10.ToggleStateChanged
        If fre10.Checked = True Then
            frecuencia = frecuencia + (4 / 12)
            totaleva10.Text = CDec(totaleva10.Text) + 4
        Else
            frecuencia = frecuencia - (4 / 12)
            totaleva10.Text = CDec(totaleva10.Text) - 4
        End If
        fretotal.Text = Math.Round(frecuencia, 2)
        Try
            total.Text = CDec(lictotal.Text) + CDec(tartotal.Text) + CDec(unitotal.Text) + CDec(limtotal.Text) + CDec(vuetotal.Text) + CDec(turtotal.Text) + CDec(fretotal.Text) + CDec(dictotal.Text) + CDec(liqtotal.Text) + CDec(renTotal.Text) + CDec(cuiTotal.Text) + CDec(manTotal.Text) + CDec(traTotal.Text) + CDec(ponTotal.Text)
      
        Catch ex As Exception

        End Try
    End Sub

    Private Sub fre11_ToggleStateChanged(ByVal sender As System.Object, ByVal args As Telerik.WinControls.UI.StateChangedEventArgs) Handles fre11.ToggleStateChanged
        If fre11.Checked = True Then
            frecuencia = frecuencia + (4 / 12)
            totaleva11.Text = CDec(totaleva11.Text) + 4
        Else
            frecuencia = frecuencia - (4 / 12)
            totaleva11.Text = CDec(totaleva11.Text) - 4
        End If
        fretotal.Text = Math.Round(frecuencia, 2)
        Try
            total.Text = CDec(lictotal.Text) + CDec(tartotal.Text) + CDec(unitotal.Text) + CDec(limtotal.Text) + CDec(vuetotal.Text) + CDec(turtotal.Text) + CDec(fretotal.Text) + CDec(dictotal.Text) + CDec(liqtotal.Text) + CDec(renTotal.Text) + CDec(cuiTotal.Text) + CDec(manTotal.Text) + CDec(traTotal.Text) + CDec(ponTotal.Text)
    
        Catch ex As Exception

        End Try
    End Sub

    Private Sub fre12_ToggleStateChanged(ByVal sender As System.Object, ByVal args As Telerik.WinControls.UI.StateChangedEventArgs) Handles fre12.ToggleStateChanged
        If fre12.Checked = True Then
            frecuencia = frecuencia + (4 / 12)
            totaleva12.Text = CDec(totaleva12.Text) + 4
        Else
            frecuencia = frecuencia - (4 / 12)
            totaleva12.Text = CDec(totaleva12.Text) - 4
        End If
        fretotal.Text = Math.Round(frecuencia, 2)
        Try
            total.Text = CDec(lictotal.Text) + CDec(tartotal.Text) + CDec(unitotal.Text) + CDec(limtotal.Text) + CDec(vuetotal.Text) + CDec(turtotal.Text) + CDec(fretotal.Text) + CDec(dictotal.Text) + CDec(liqtotal.Text) + CDec(renTotal.Text) + CDec(cuiTotal.Text) + CDec(manTotal.Text) + CDec(traTotal.Text) + CDec(ponTotal.Text)
   
        Catch ex As Exception

        End Try
    End Sub

    Private Sub dic1_ToggleStateChanged(ByVal sender As System.Object, ByVal args As Telerik.WinControls.UI.StateChangedEventArgs) Handles dic1.ToggleStateChanged
        If dic1.Checked = True Then
            disciplina = disciplina + (10 / 12)
            totaleva1.Text = CDec(totaleva1.Text) + 10
        Else
            disciplina = disciplina - (10 / 12)
            totaleva1.Text = CDec(totaleva1.Text) - 10
        End If
        dictotal.Text = Math.Round(disciplina, 2)
        Try
            total.Text = CDec(lictotal.Text) + CDec(tartotal.Text) + CDec(unitotal.Text) + CDec(limtotal.Text) + CDec(vuetotal.Text) + CDec(turtotal.Text) + CDec(fretotal.Text) + CDec(dictotal.Text) + CDec(liqtotal.Text) + CDec(renTotal.Text) + CDec(cuiTotal.Text) + CDec(manTotal.Text) + CDec(traTotal.Text) + CDec(ponTotal.Text)
   
        Catch ex As Exception

        End Try
    End Sub

    Private Sub dic2_ToggleStateChanged(ByVal sender As System.Object, ByVal args As Telerik.WinControls.UI.StateChangedEventArgs) Handles dic2.ToggleStateChanged
        If dic2.Checked = True Then
            disciplina = disciplina + (10 / 12)
            totaleva2.Text = CDec(totaleva2.Text) + 10
        Else
            disciplina = disciplina - (10 / 12)
            totaleva2.Text = CDec(totaleva2.Text) - 10
        End If
        dictotal.Text = Math.Round(disciplina, 2)
        Try
            total.Text = CDec(lictotal.Text) + CDec(tartotal.Text) + CDec(unitotal.Text) + CDec(limtotal.Text) + CDec(vuetotal.Text) + CDec(turtotal.Text) + CDec(fretotal.Text) + CDec(dictotal.Text) + CDec(liqtotal.Text) + CDec(renTotal.Text) + CDec(cuiTotal.Text) + CDec(manTotal.Text) + CDec(traTotal.Text) + CDec(ponTotal.Text)
     
        Catch ex As Exception

        End Try
    End Sub

    Private Sub dic3_ToggleStateChanged(ByVal sender As System.Object, ByVal args As Telerik.WinControls.UI.StateChangedEventArgs) Handles dic3.ToggleStateChanged
        If dic3.Checked = True Then
            disciplina = disciplina + (10 / 12)
            totaleva3.Text = CDec(totaleva3.Text) + 10
        Else
            disciplina = disciplina - (10 / 12)
            totaleva3.Text = CDec(totaleva3.Text) - 10
        End If
        dictotal.Text = Math.Round(disciplina, 2)
        Try
            total.Text = CDec(lictotal.Text) + CDec(tartotal.Text) + CDec(unitotal.Text) + CDec(limtotal.Text) + CDec(vuetotal.Text) + CDec(turtotal.Text) + CDec(fretotal.Text) + CDec(dictotal.Text) + CDec(liqtotal.Text) + CDec(renTotal.Text) + CDec(cuiTotal.Text) + CDec(manTotal.Text) + CDec(traTotal.Text) + CDec(ponTotal.Text)
   
        Catch ex As Exception

        End Try
    End Sub

    Private Sub dic4_ToggleStateChanged(ByVal sender As System.Object, ByVal args As Telerik.WinControls.UI.StateChangedEventArgs) Handles dic4.ToggleStateChanged
        If dic4.Checked = True Then
            disciplina = disciplina + (10 / 12)
            totaleva4.Text = CDec(totaleva4.Text) + 10
        Else
            disciplina = disciplina - (10 / 12)
            totaleva4.Text = CDec(totaleva4.Text) - 10
        End If
        dictotal.Text = Math.Round(disciplina, 2)
        Try
            total.Text = CDec(lictotal.Text) + CDec(tartotal.Text) + CDec(unitotal.Text) + CDec(limtotal.Text) + CDec(vuetotal.Text) + CDec(turtotal.Text) + CDec(fretotal.Text) + CDec(dictotal.Text) + CDec(liqtotal.Text) + CDec(renTotal.Text) + CDec(cuiTotal.Text) + CDec(manTotal.Text) + CDec(traTotal.Text) + CDec(ponTotal.Text)
     
        Catch ex As Exception

        End Try
    End Sub

    Private Sub dic5_ToggleStateChanged(ByVal sender As System.Object, ByVal args As Telerik.WinControls.UI.StateChangedEventArgs) Handles dic5.ToggleStateChanged
        If dic5.Checked = True Then
            disciplina = disciplina + (10 / 12)
            totaleva5.Text = CDec(totaleva5.Text) + 10
        Else
            disciplina = disciplina - (10 / 12)
            totaleva5.Text = CDec(totaleva5.Text) - 10
        End If
        dictotal.Text = Math.Round(disciplina, 2)
        Try
            total.Text = CDec(lictotal.Text) + CDec(tartotal.Text) + CDec(unitotal.Text) + CDec(limtotal.Text) + CDec(vuetotal.Text) + CDec(turtotal.Text) + CDec(fretotal.Text) + CDec(dictotal.Text) + CDec(liqtotal.Text) + CDec(renTotal.Text) + CDec(cuiTotal.Text) + CDec(manTotal.Text) + CDec(traTotal.Text) + CDec(ponTotal.Text)
     
        Catch ex As Exception

        End Try
    End Sub

    Private Sub dic6_ToggleStateChanged(ByVal sender As System.Object, ByVal args As Telerik.WinControls.UI.StateChangedEventArgs) Handles dic6.ToggleStateChanged
        If dic6.Checked = True Then
            disciplina = disciplina + (10 / 12)
            totaleva6.Text = CDec(totaleva6.Text) + 10
        Else
            disciplina = disciplina - (10 / 12)
            totaleva6.Text = CDec(totaleva6.Text) - 10
        End If
        dictotal.Text = Math.Round(disciplina, 2)
        Try
            total.Text = CDec(lictotal.Text) + CDec(tartotal.Text) + CDec(unitotal.Text) + CDec(limtotal.Text) + CDec(vuetotal.Text) + CDec(turtotal.Text) + CDec(fretotal.Text) + CDec(dictotal.Text) + CDec(liqtotal.Text) + CDec(renTotal.Text) + CDec(cuiTotal.Text) + CDec(manTotal.Text) + CDec(traTotal.Text) + CDec(ponTotal.Text)
   
        Catch ex As Exception

        End Try
    End Sub

    Private Sub dic7_ToggleStateChanged(ByVal sender As System.Object, ByVal args As Telerik.WinControls.UI.StateChangedEventArgs) Handles dic7.ToggleStateChanged
        If dic7.Checked = True Then
            disciplina = disciplina + (10 / 12)
            totaleva7.Text = CDec(totaleva7.Text) + 10
        Else
            disciplina = disciplina - (10 / 12)
            totaleva7.Text = CDec(totaleva7.Text) - 10
        End If
        dictotal.Text = Math.Round(disciplina, 2)
        Try
            total.Text = CDec(lictotal.Text) + CDec(tartotal.Text) + CDec(unitotal.Text) + CDec(limtotal.Text) + CDec(vuetotal.Text) + CDec(turtotal.Text) + CDec(fretotal.Text) + CDec(dictotal.Text) + CDec(liqtotal.Text) + CDec(renTotal.Text) + CDec(cuiTotal.Text) + CDec(manTotal.Text) + CDec(traTotal.Text) + CDec(ponTotal.Text)
    
        Catch ex As Exception

        End Try
    End Sub

    Private Sub dic8_ToggleStateChanged(ByVal sender As System.Object, ByVal args As Telerik.WinControls.UI.StateChangedEventArgs) Handles dic8.ToggleStateChanged
        If dic8.Checked = True Then
            disciplina = disciplina + (10 / 12)
            totaleva8.Text = CDec(totaleva8.Text) + 10
        Else
            disciplina = disciplina - (10 / 12)
            totaleva8.Text = CDec(totaleva8.Text) - 10
        End If
        dictotal.Text = Math.Round(disciplina, 2)
        Try
            total.Text = CDec(lictotal.Text) + CDec(tartotal.Text) + CDec(unitotal.Text) + CDec(limtotal.Text) + CDec(vuetotal.Text) + CDec(turtotal.Text) + CDec(fretotal.Text) + CDec(dictotal.Text) + CDec(liqtotal.Text) + CDec(renTotal.Text) + CDec(cuiTotal.Text) + CDec(manTotal.Text) + CDec(traTotal.Text) + CDec(ponTotal.Text)
    
        Catch ex As Exception

        End Try
    End Sub

    Private Sub dic9_ToggleStateChanged(ByVal sender As System.Object, ByVal args As Telerik.WinControls.UI.StateChangedEventArgs) Handles dic9.ToggleStateChanged
        If dic9.Checked = True Then
            disciplina = disciplina + (10 / 12)
            totaleva9.Text = CDec(totaleva9.Text) + 10
        Else
            disciplina = disciplina - (10 / 12)
            totaleva9.Text = CDec(totaleva9.Text) - 10
        End If
        dictotal.Text = Math.Round(disciplina, 2)
        Try
            total.Text = CDec(lictotal.Text) + CDec(tartotal.Text) + CDec(unitotal.Text) + CDec(limtotal.Text) + CDec(vuetotal.Text) + CDec(turtotal.Text) + CDec(fretotal.Text) + CDec(dictotal.Text) + CDec(liqtotal.Text) + CDec(renTotal.Text) + CDec(cuiTotal.Text) + CDec(manTotal.Text) + CDec(traTotal.Text) + CDec(ponTotal.Text)
    
        Catch ex As Exception

        End Try
    End Sub

    Private Sub dic10_ToggleStateChanged(ByVal sender As System.Object, ByVal args As Telerik.WinControls.UI.StateChangedEventArgs) Handles dic10.ToggleStateChanged
        If dic10.Checked = True Then
            disciplina = disciplina + (10 / 12)
            totaleva10.Text = CDec(totaleva10.Text) + 10
        Else
            disciplina = disciplina - (10 / 12)
            totaleva10.Text = CDec(totaleva10.Text) - 10
        End If
        dictotal.Text = Math.Round(disciplina, 2)
        Try
            total.Text = CDec(lictotal.Text) + CDec(tartotal.Text) + CDec(unitotal.Text) + CDec(limtotal.Text) + CDec(vuetotal.Text) + CDec(turtotal.Text) + CDec(fretotal.Text) + CDec(dictotal.Text) + CDec(liqtotal.Text) + CDec(renTotal.Text) + CDec(cuiTotal.Text) + CDec(manTotal.Text) + CDec(traTotal.Text) + CDec(ponTotal.Text)
     
        Catch ex As Exception

        End Try
    End Sub

    Private Sub dic11_ToggleStateChanged(ByVal sender As System.Object, ByVal args As Telerik.WinControls.UI.StateChangedEventArgs) Handles dic11.ToggleStateChanged
        If dic11.Checked = True Then
            disciplina = disciplina + (10 / 12)
            totaleva11.Text = CDec(totaleva11.Text) + 10
        Else
            disciplina = disciplina - (10 / 12)
            totaleva11.Text = CDec(totaleva11.Text) - 10
        End If
        dictotal.Text = Math.Round(disciplina, 2)
        Try
            total.Text = CDec(lictotal.Text) + CDec(tartotal.Text) + CDec(unitotal.Text) + CDec(limtotal.Text) + CDec(vuetotal.Text) + CDec(turtotal.Text) + CDec(fretotal.Text) + CDec(dictotal.Text) + CDec(liqtotal.Text) + CDec(renTotal.Text) + CDec(cuiTotal.Text) + CDec(manTotal.Text) + CDec(traTotal.Text) + CDec(ponTotal.Text)
   
        Catch ex As Exception

        End Try
    End Sub

    Private Sub dic12_ToggleStateChanged(ByVal sender As System.Object, ByVal args As Telerik.WinControls.UI.StateChangedEventArgs) Handles dic12.ToggleStateChanged
        If dic12.Checked = True Then
            disciplina = disciplina + (10 / 12)
            totaleva12.Text = CDec(totaleva12.Text) + 10
        Else
            disciplina = disciplina - (10 / 12)
            totaleva12.Text = CDec(totaleva12.Text) - 10
        End If
        dictotal.Text = Math.Round(disciplina, 2)
        Try
            total.Text = CDec(lictotal.Text) + CDec(tartotal.Text) + CDec(unitotal.Text) + CDec(limtotal.Text) + CDec(vuetotal.Text) + CDec(turtotal.Text) + CDec(fretotal.Text) + CDec(dictotal.Text) + CDec(liqtotal.Text) + CDec(renTotal.Text) + CDec(cuiTotal.Text) + CDec(manTotal.Text) + CDec(traTotal.Text) + CDec(ponTotal.Text)
   
        Catch ex As Exception

        End Try
    End Sub

    Private Sub liq1_ToggleStateChanged(ByVal sender As System.Object, ByVal args As Telerik.WinControls.UI.StateChangedEventArgs) Handles liq1.ToggleStateChanged
        If liq1.Checked = True Then
            liquidacio = liquidacio + (6 / 12)
            totaleva1.Text = CDec(totaleva1.Text) + 6
        Else
            liquidacio = liquidacio - (6 / 12)
            totaleva1.Text = CDec(totaleva1.Text) - 6
        End If
        liqtotal.Text = Math.Round(liquidacio, 2)
        Try
            total.Text = CDec(lictotal.Text) + CDec(tartotal.Text) + CDec(unitotal.Text) + CDec(limtotal.Text) + CDec(vuetotal.Text) + CDec(turtotal.Text) + CDec(fretotal.Text) + CDec(dictotal.Text) + CDec(liqtotal.Text) + CDec(renTotal.Text) + CDec(cuiTotal.Text) + CDec(manTotal.Text) + CDec(traTotal.Text) + CDec(ponTotal.Text)
   
        Catch ex As Exception

        End Try
    End Sub

    Private Sub liq2_ToggleStateChanged(ByVal sender As System.Object, ByVal args As Telerik.WinControls.UI.StateChangedEventArgs) Handles liq2.ToggleStateChanged
        If liq2.Checked = True Then
            liquidacio = liquidacio + (6 / 12)
            totaleva2.Text = CDec(totaleva2.Text) + 6
        Else
            liquidacio = liquidacio - (6 / 12)
            totaleva2.Text = CDec(totaleva2.Text) - 6
        End If
        liqtotal.Text = Math.Round(liquidacio, 2)
        Try
            total.Text = CDec(lictotal.Text) + CDec(tartotal.Text) + CDec(unitotal.Text) + CDec(limtotal.Text) + CDec(vuetotal.Text) + CDec(turtotal.Text) + CDec(fretotal.Text) + CDec(dictotal.Text) + CDec(liqtotal.Text) + CDec(renTotal.Text) + CDec(cuiTotal.Text) + CDec(manTotal.Text) + CDec(traTotal.Text) + CDec(ponTotal.Text)
    
        Catch ex As Exception

        End Try
    End Sub

    Private Sub liq3_ToggleStateChanged(ByVal sender As System.Object, ByVal args As Telerik.WinControls.UI.StateChangedEventArgs) Handles liq3.ToggleStateChanged
        If liq3.Checked = True Then
            liquidacio = liquidacio + (6 / 12)
            totaleva3.Text = CDec(totaleva3.Text) + 6
        Else
            liquidacio = liquidacio - (6 / 12)
            totaleva3.Text = CDec(totaleva3.Text) - 6
        End If
        liqtotal.Text = Math.Round(liquidacio, 2)
        Try
            total.Text = CDec(lictotal.Text) + CDec(tartotal.Text) + CDec(unitotal.Text) + CDec(limtotal.Text) + CDec(vuetotal.Text) + CDec(turtotal.Text) + CDec(fretotal.Text) + CDec(dictotal.Text) + CDec(liqtotal.Text) + CDec(renTotal.Text) + CDec(cuiTotal.Text) + CDec(manTotal.Text) + CDec(traTotal.Text) + CDec(ponTotal.Text)
     
        Catch ex As Exception

        End Try
    End Sub

    Private Sub liq4_ToggleStateChanged(ByVal sender As System.Object, ByVal args As Telerik.WinControls.UI.StateChangedEventArgs) Handles liq4.ToggleStateChanged
        If liq4.Checked = True Then
            liquidacio = liquidacio + (6 / 12)
            totaleva4.Text = CDec(totaleva4.Text) + 6
        Else
            liquidacio = liquidacio - (6 / 12)
            totaleva4.Text = CDec(totaleva4.Text) - 6
        End If
        liqtotal.Text = Math.Round(liquidacio, 2)
        Try
            total.Text = CDec(lictotal.Text) + CDec(tartotal.Text) + CDec(unitotal.Text) + CDec(limtotal.Text) + CDec(vuetotal.Text) + CDec(turtotal.Text) + CDec(fretotal.Text) + CDec(dictotal.Text) + CDec(liqtotal.Text) + CDec(renTotal.Text) + CDec(cuiTotal.Text) + CDec(manTotal.Text) + CDec(traTotal.Text) + CDec(ponTotal.Text)
  
        Catch ex As Exception

        End Try
    End Sub

    Private Sub liq5_ToggleStateChanged(ByVal sender As System.Object, ByVal args As Telerik.WinControls.UI.StateChangedEventArgs) Handles liq5.ToggleStateChanged
        If liq5.Checked = True Then
            liquidacio = liquidacio + (6 / 12)
            totaleva5.Text = CDec(totaleva5.Text) + 6
        Else
            liquidacio = liquidacio - (6 / 12)
            totaleva5.Text = CDec(totaleva5.Text) - 6
        End If
        liqtotal.Text = Math.Round(liquidacio, 2)
        Try
            total.Text = CDec(lictotal.Text) + CDec(tartotal.Text) + CDec(unitotal.Text) + CDec(limtotal.Text) + CDec(vuetotal.Text) + CDec(turtotal.Text) + CDec(fretotal.Text) + CDec(dictotal.Text) + CDec(liqtotal.Text) + CDec(renTotal.Text) + CDec(cuiTotal.Text) + CDec(manTotal.Text) + CDec(traTotal.Text) + CDec(ponTotal.Text)
    
        Catch ex As Exception
        End Try
    End Sub

    Private Sub liq6_ToggleStateChanged(ByVal sender As System.Object, ByVal args As Telerik.WinControls.UI.StateChangedEventArgs) Handles liq6.ToggleStateChanged
        If liq6.Checked = True Then
            liquidacio = liquidacio + (6 / 12)
            totaleva6.Text = CDec(totaleva6.Text) + 6
        Else
            liquidacio = liquidacio - (6 / 12)
            totaleva6.Text = CDec(totaleva6.Text) - 6
        End If
        liqtotal.Text = Math.Round(liquidacio, 2)
        Try
            total.Text = CDec(lictotal.Text) + CDec(tartotal.Text) + CDec(unitotal.Text) + CDec(limtotal.Text) + CDec(vuetotal.Text) + CDec(turtotal.Text) + CDec(fretotal.Text) + CDec(dictotal.Text) + CDec(liqtotal.Text) + CDec(renTotal.Text) + CDec(cuiTotal.Text) + CDec(manTotal.Text) + CDec(traTotal.Text) + CDec(ponTotal.Text)
  
        Catch ex As Exception

        End Try
    End Sub

    Private Sub liq7_ToggleStateChanged(ByVal sender As System.Object, ByVal args As Telerik.WinControls.UI.StateChangedEventArgs) Handles liq7.ToggleStateChanged
        If liq7.Checked = True Then
            liquidacio = liquidacio + (6 / 12)
            totaleva7.Text = CDec(totaleva7.Text) + 6
        Else
            liquidacio = liquidacio - (6 / 12)
            totaleva7.Text = CDec(totaleva7.Text) - 6
        End If
        liqtotal.Text = Math.Round(liquidacio, 2)
        Try
            total.Text = CDec(lictotal.Text) + CDec(tartotal.Text) + CDec(unitotal.Text) + CDec(limtotal.Text) + CDec(vuetotal.Text) + CDec(turtotal.Text) + CDec(fretotal.Text) + CDec(dictotal.Text) + CDec(liqtotal.Text) + CDec(renTotal.Text) + CDec(cuiTotal.Text) + CDec(manTotal.Text) + CDec(traTotal.Text) + CDec(ponTotal.Text)
   
        Catch ex As Exception

        End Try
    End Sub

    Private Sub liq8_ToggleStateChanged(ByVal sender As System.Object, ByVal args As Telerik.WinControls.UI.StateChangedEventArgs) Handles liq8.ToggleStateChanged
        If liq8.Checked = True Then
            liquidacio = liquidacio + (6 / 12)
            totaleva8.Text = CDec(totaleva8.Text) + 6
        Else
            liquidacio = liquidacio - (6 / 12)
            totaleva8.Text = CDec(totaleva8.Text) - 6
        End If
        liqtotal.Text = Math.Round(liquidacio, 2)
        Try
            total.Text = CDec(lictotal.Text) + CDec(tartotal.Text) + CDec(unitotal.Text) + CDec(limtotal.Text) + CDec(vuetotal.Text) + CDec(turtotal.Text) + CDec(fretotal.Text) + CDec(dictotal.Text) + CDec(liqtotal.Text) + CDec(renTotal.Text) + CDec(cuiTotal.Text) + CDec(manTotal.Text) + CDec(traTotal.Text) + CDec(ponTotal.Text)
  
        Catch ex As Exception

        End Try
    End Sub

    Private Sub liq9_ToggleStateChanged(ByVal sender As System.Object, ByVal args As Telerik.WinControls.UI.StateChangedEventArgs) Handles liq9.ToggleStateChanged
        If liq9.Checked = True Then
            liquidacio = liquidacio + (6 / 12)
            totaleva9.Text = CDec(totaleva9.Text) + 6
        Else
            liquidacio = liquidacio - (6 / 12)
            totaleva9.Text = CDec(totaleva9.Text) - 6
        End If
        liqtotal.Text = Math.Round(liquidacio, 2)
        Try
            total.Text = CDec(lictotal.Text) + CDec(tartotal.Text) + CDec(unitotal.Text) + CDec(limtotal.Text) + CDec(vuetotal.Text) + CDec(turtotal.Text) + CDec(fretotal.Text) + CDec(dictotal.Text) + CDec(liqtotal.Text) + CDec(renTotal.Text) + CDec(cuiTotal.Text) + CDec(manTotal.Text) + CDec(traTotal.Text) + CDec(ponTotal.Text)
   
        Catch ex As Exception

        End Try
    End Sub

    Private Sub liq10_ToggleStateChanged(ByVal sender As System.Object, ByVal args As Telerik.WinControls.UI.StateChangedEventArgs) Handles liq10.ToggleStateChanged
        If liq10.Checked = True Then
            liquidacio = liquidacio + (6 / 12)
            totaleva10.Text = CDec(totaleva10.Text) + 6
        Else
            liquidacio = liquidacio - (6 / 12)
            totaleva10.Text = CDec(totaleva10.Text) - 6
        End If
        liqtotal.Text = Math.Round(liquidacio, 2)
        Try
            total.Text = CDec(lictotal.Text) + CDec(tartotal.Text) + CDec(unitotal.Text) + CDec(limtotal.Text) + CDec(vuetotal.Text) + CDec(turtotal.Text) + CDec(fretotal.Text) + CDec(dictotal.Text) + CDec(liqtotal.Text) + CDec(renTotal.Text) + CDec(cuiTotal.Text) + CDec(manTotal.Text) + CDec(traTotal.Text) + CDec(ponTotal.Text)
 
        Catch ex As Exception

        End Try
    End Sub

    Private Sub liq11_ToggleStateChanged(ByVal sender As System.Object, ByVal args As Telerik.WinControls.UI.StateChangedEventArgs) Handles liq11.ToggleStateChanged
        If liq11.Checked = True Then
            liquidacio = liquidacio + (6 / 12)
            totaleva11.Text = CDec(totaleva11.Text) + 6
        Else
            liquidacio = liquidacio - (6 / 12)
            totaleva11.Text = CDec(totaleva11.Text) - 6
        End If
        liqtotal.Text = Math.Round(liquidacio, 2)
        Try
            total.Text = CDec(lictotal.Text) + CDec(tartotal.Text) + CDec(unitotal.Text) + CDec(limtotal.Text) + CDec(vuetotal.Text) + CDec(turtotal.Text) + CDec(fretotal.Text) + CDec(dictotal.Text) + CDec(liqtotal.Text) + CDec(renTotal.Text) + CDec(cuiTotal.Text) + CDec(manTotal.Text) + CDec(traTotal.Text) + CDec(ponTotal.Text)
    
        Catch ex As Exception

        End Try
    End Sub

    Private Sub liq12_ToggleStateChanged(ByVal sender As System.Object, ByVal args As Telerik.WinControls.UI.StateChangedEventArgs) Handles liq12.ToggleStateChanged
        If liq12.Checked = True Then
            liquidacio = liquidacio + (6 / 12)
            totaleva12.Text = CDec(totaleva12.Text) + 6
        Else
            liquidacio = liquidacio - (6 / 12)
            totaleva12.Text = CDec(totaleva12.Text) - 6
        End If
        liqtotal.Text = Math.Round(liquidacio, 2)
        Try
            total.Text = CDec(lictotal.Text) + CDec(tartotal.Text) + CDec(unitotal.Text) + CDec(limtotal.Text) + CDec(vuetotal.Text) + CDec(turtotal.Text) + CDec(fretotal.Text) + CDec(dictotal.Text) + CDec(liqtotal.Text) + CDec(renTotal.Text) + CDec(cuiTotal.Text) + CDec(manTotal.Text) + CDec(traTotal.Text) + CDec(ponTotal.Text)
   
        Catch ex As Exception

        End Try
    End Sub
    Private Sub ren1_ToggleStateChanged(ByVal sender As System.Object, ByVal args As Telerik.WinControls.UI.StateChangedEventArgs) Handles ren1.ToggleStateChanged
        If ren1.Checked = True Then
            Rendimiento = Rendimiento + (10 / 12)
            totaleva1.Text = CDec(totaleva1.Text) + 10
        Else
            Rendimiento = Rendimiento - (10 / 12)
            totaleva1.Text = CDec(totaleva1.Text) - 10
        End If
        renTotal.Text = Math.Round(Rendimiento, 2)
        'f9.Text = Math.Round(liquidacio, 2)
        Try
            total.Text = CDec(lictotal.Text) + CDec(tartotal.Text) + CDec(unitotal.Text) + CDec(limtotal.Text) + CDec(vuetotal.Text) + CDec(turtotal.Text) + CDec(fretotal.Text) + CDec(dictotal.Text) + CDec(liqtotal.Text) + CDec(renTotal.Text) + CDec(cuiTotal.Text) + CDec(manTotal.Text) + CDec(traTotal.Text) + CDec(ponTotal.Text)
            'f10.Text = CDec(lictotal.Text) + CDec(tartotal.Text) + CDec(unitotal.Text) + CDec(limtotal.Text) + CDec(vuetotal.Text) + CDec(turtotal.Text) + CDec(fretotal.Text) + CDec(dictotal.Text) + CDec(liqtotal.Text) + CDec(renTotal.Text) + CDec(cuiTotal.Text) + CDec(manTotal.Text) + CDec(traTotal.Text) + CDec(ponTotal.Text)

        Catch ex As Exception

        End Try
    End Sub
    Private Sub ren2_ToggleStateChanged(ByVal sender As System.Object, ByVal args As Telerik.WinControls.UI.StateChangedEventArgs) Handles ren2.ToggleStateChanged
        If ren2.Checked = True Then
            Rendimiento = Rendimiento + (10 / 12)
            totaleva2.Text = CDec(totaleva2.Text) + 10
        Else
            Rendimiento = Rendimiento - (10 / 12)
            totaleva2.Text = CDec(totaleva2.Text) - 10
        End If
        renTotal.Text = Math.Round(Rendimiento, 2)
        'f9.Text = Math.Round(liquidacio, 2)
        Try
            total.Text = CDec(lictotal.Text) + CDec(tartotal.Text) + CDec(unitotal.Text) + CDec(limtotal.Text) + CDec(vuetotal.Text) + CDec(turtotal.Text) + CDec(fretotal.Text) + CDec(dictotal.Text) + CDec(liqtotal.Text) + CDec(renTotal.Text) + CDec(cuiTotal.Text) + CDec(manTotal.Text) + CDec(traTotal.Text) + CDec(ponTotal.Text)
            'f10.Text = CDec(lictotal.Text) + CDec(tartotal.Text) + CDec(unitotal.Text) + CDec(limtotal.Text) + CDec(vuetotal.Text) + CDec(turtotal.Text) + CDec(fretotal.Text) + CDec(dictotal.Text) + CDec(liqtotal.Text) + CDec(renTotal.Text) + CDec(cuiTotal.Text) + CDec(manTotal.Text) + CDec(traTotal.Text) + CDec(ponTotal.Text)

        Catch ex As Exception

        End Try
    End Sub
    Private Sub ren3_ToggleStateChanged(ByVal sender As System.Object, ByVal args As Telerik.WinControls.UI.StateChangedEventArgs) Handles ren3.ToggleStateChanged
        If ren3.Checked = True Then
            Rendimiento = Rendimiento + (10 / 12)
            totaleva3.Text = CDec(totaleva3.Text) + 10
        Else
            Rendimiento = Rendimiento - (10 / 12)
            totaleva3.Text = CDec(totaleva2.Text) - 10
        End If
        renTotal.Text = Math.Round(Rendimiento, 2)
        'f9.Text = Math.Round(liquidacio, 2)
        Try
            total.Text = CDec(lictotal.Text) + CDec(tartotal.Text) + CDec(unitotal.Text) + CDec(limtotal.Text) + CDec(vuetotal.Text) + CDec(turtotal.Text) + CDec(fretotal.Text) + CDec(dictotal.Text) + CDec(liqtotal.Text) + CDec(renTotal.Text) + CDec(cuiTotal.Text) + CDec(manTotal.Text) + CDec(traTotal.Text) + CDec(ponTotal.Text)
            'f10.Text = CDec(lictotal.Text) + CDec(tartotal.Text) + CDec(unitotal.Text) + CDec(limtotal.Text) + CDec(vuetotal.Text) + CDec(turtotal.Text) + CDec(fretotal.Text) + CDec(dictotal.Text) + CDec(liqtotal.Text) + CDec(renTotal.Text) + CDec(cuiTotal.Text) + CDec(manTotal.Text) + CDec(traTotal.Text) + CDec(ponTotal.Text)

        Catch ex As Exception

        End Try
    End Sub
    Private Sub ren4_ToggleStateChanged(ByVal sender As System.Object, ByVal args As Telerik.WinControls.UI.StateChangedEventArgs) Handles ren4.ToggleStateChanged
        If ren4.Checked = True Then
            Rendimiento = Rendimiento + (10 / 12)
            totaleva4.Text = CDec(totaleva4.Text) + 10
        Else
            Rendimiento = Rendimiento - (10 / 12)
            totaleva4.Text = CDec(totaleva4.Text) - 10
        End If
        renTotal.Text = Math.Round(Rendimiento, 2)
        'f9.Text = Math.Round(liquidacio, 2)
        Try
            total.Text = CDec(lictotal.Text) + CDec(tartotal.Text) + CDec(unitotal.Text) + CDec(limtotal.Text) + CDec(vuetotal.Text) + CDec(turtotal.Text) + CDec(fretotal.Text) + CDec(dictotal.Text) + CDec(liqtotal.Text) + CDec(renTotal.Text) + CDec(cuiTotal.Text) + CDec(manTotal.Text) + CDec(traTotal.Text) + CDec(ponTotal.Text)
            'f10.Text = CDec(lictotal.Text) + CDec(tartotal.Text) + CDec(unitotal.Text) + CDec(limtotal.Text) + CDec(vuetotal.Text) + CDec(turtotal.Text) + CDec(fretotal.Text) + CDec(dictotal.Text) + CDec(liqtotal.Text) + CDec(renTotal.Text) + CDec(cuiTotal.Text) + CDec(manTotal.Text) + CDec(traTotal.Text) + CDec(ponTotal.Text)

        Catch ex As Exception

        End Try
    End Sub
    Private Sub ren5_ToggleStateChanged(ByVal sender As System.Object, ByVal args As Telerik.WinControls.UI.StateChangedEventArgs) Handles ren5.ToggleStateChanged
        If ren5.Checked = True Then
            Rendimiento = Rendimiento + (10 / 12)
            totaleva5.Text = CDec(totaleva5.Text) + 10
        Else
            Rendimiento = Rendimiento - (10 / 12)
            totaleva5.Text = CDec(totaleva5.Text) - 10
        End If
        renTotal.Text = Math.Round(Rendimiento, 2)
        'f9.Text = Math.Round(liquidacio, 2)
        Try
            total.Text = CDec(lictotal.Text) + CDec(tartotal.Text) + CDec(unitotal.Text) + CDec(limtotal.Text) + CDec(vuetotal.Text) + CDec(turtotal.Text) + CDec(fretotal.Text) + CDec(dictotal.Text) + CDec(liqtotal.Text) + CDec(renTotal.Text) + CDec(cuiTotal.Text) + CDec(manTotal.Text) + CDec(traTotal.Text) + CDec(ponTotal.Text)
            'f10.Text = CDec(lictotal.Text) + CDec(tartotal.Text) + CDec(unitotal.Text) + CDec(limtotal.Text) + CDec(vuetotal.Text) + CDec(turtotal.Text) + CDec(fretotal.Text) + CDec(dictotal.Text) + CDec(liqtotal.Text) + CDec(renTotal.Text) + CDec(cuiTotal.Text) + CDec(manTotal.Text) + CDec(traTotal.Text) + CDec(ponTotal.Text)

        Catch ex As Exception

        End Try
    End Sub
    Private Sub ren6_ToggleStateChanged(ByVal sender As System.Object, ByVal args As Telerik.WinControls.UI.StateChangedEventArgs) Handles ren6.ToggleStateChanged
        If ren6.Checked = True Then
            Rendimiento = Rendimiento + (10 / 12)
            totaleva6.Text = CDec(totaleva6.Text) + 10
        Else
            Rendimiento = Rendimiento - (10 / 12)
            totaleva6.Text = CDec(totaleva6.Text) - 10
        End If
        renTotal.Text = Math.Round(Rendimiento, 2)
        'f9.Text = Math.Round(liquidacio, 2)
        Try
            total.Text = CDec(lictotal.Text) + CDec(tartotal.Text) + CDec(unitotal.Text) + CDec(limtotal.Text) + CDec(vuetotal.Text) + CDec(turtotal.Text) + CDec(fretotal.Text) + CDec(dictotal.Text) + CDec(liqtotal.Text) + CDec(renTotal.Text) + CDec(cuiTotal.Text) + CDec(manTotal.Text) + CDec(traTotal.Text) + CDec(ponTotal.Text)
            'f10.Text = CDec(lictotal.Text) + CDec(tartotal.Text) + CDec(unitotal.Text) + CDec(limtotal.Text) + CDec(vuetotal.Text) + CDec(turtotal.Text) + CDec(fretotal.Text) + CDec(dictotal.Text) + CDec(liqtotal.Text) + CDec(renTotal.Text) + CDec(cuiTotal.Text) + CDec(manTotal.Text) + CDec(traTotal.Text) + CDec(ponTotal.Text)

        Catch ex As Exception

        End Try
    End Sub
    Private Sub ren7_ToggleStateChanged(ByVal sender As System.Object, ByVal args As Telerik.WinControls.UI.StateChangedEventArgs) Handles ren7.ToggleStateChanged
        If ren7.Checked = True Then
            Rendimiento = Rendimiento + (10 / 12)
            totaleva7.Text = CDec(totaleva7.Text) + 10
        Else
            Rendimiento = Rendimiento - (10 / 12)
            totaleva7.Text = CDec(totaleva7.Text) - 10
        End If
        renTotal.Text = Math.Round(Rendimiento, 2)
        'f9.Text = Math.Round(liquidacio, 2)
        Try
            total.Text = CDec(lictotal.Text) + CDec(tartotal.Text) + CDec(unitotal.Text) + CDec(limtotal.Text) + CDec(vuetotal.Text) + CDec(turtotal.Text) + CDec(fretotal.Text) + CDec(dictotal.Text) + CDec(liqtotal.Text) + CDec(renTotal.Text) + CDec(cuiTotal.Text) + CDec(manTotal.Text) + CDec(traTotal.Text) + CDec(ponTotal.Text)
            'f10.Text = CDec(lictotal.Text) + CDec(tartotal.Text) + CDec(unitotal.Text) + CDec(limtotal.Text) + CDec(vuetotal.Text) + CDec(turtotal.Text) + CDec(fretotal.Text) + CDec(dictotal.Text) + CDec(liqtotal.Text) + CDec(renTotal.Text) + CDec(cuiTotal.Text) + CDec(manTotal.Text) + CDec(traTotal.Text) + CDec(ponTotal.Text)

        Catch ex As Exception

        End Try
    End Sub
    Private Sub ren8_ToggleStateChanged(ByVal sender As System.Object, ByVal args As Telerik.WinControls.UI.StateChangedEventArgs) Handles ren8.ToggleStateChanged
        If ren8.Checked = True Then
            Rendimiento = Rendimiento + (10 / 12)
            totaleva8.Text = CDec(totaleva8.Text) + 10
        Else
            Rendimiento = Rendimiento - (10 / 12)
            totaleva8.Text = CDec(totaleva8.Text) - 10
        End If
        renTotal.Text = Math.Round(Rendimiento, 2)
        'f9.Text = Math.Round(liquidacio, 2)
        Try
            total.Text = CDec(lictotal.Text) + CDec(tartotal.Text) + CDec(unitotal.Text) + CDec(limtotal.Text) + CDec(vuetotal.Text) + CDec(turtotal.Text) + CDec(fretotal.Text) + CDec(dictotal.Text) + CDec(liqtotal.Text) + CDec(renTotal.Text) + CDec(cuiTotal.Text) + CDec(manTotal.Text) + CDec(traTotal.Text) + CDec(ponTotal.Text)
            'f10.Text = CDec(lictotal.Text) + CDec(tartotal.Text) + CDec(unitotal.Text) + CDec(limtotal.Text) + CDec(vuetotal.Text) + CDec(turtotal.Text) + CDec(fretotal.Text) + CDec(dictotal.Text) + CDec(liqtotal.Text) + CDec(renTotal.Text) + CDec(cuiTotal.Text) + CDec(manTotal.Text) + CDec(traTotal.Text) + CDec(ponTotal.Text)

        Catch ex As Exception

        End Try
    End Sub
    Private Sub ren9_ToggleStateChanged(ByVal sender As System.Object, ByVal args As Telerik.WinControls.UI.StateChangedEventArgs) Handles ren9.ToggleStateChanged
        If ren9.Checked = True Then
            Rendimiento = Rendimiento + (10 / 12)
            totaleva9.Text = CDec(totaleva9.Text) + 10
        Else
            Rendimiento = Rendimiento - (10 / 12)
            totaleva9.Text = CDec(totaleva9.Text) - 10
        End If
        renTotal.Text = Math.Round(Rendimiento, 2)
        'f9.Text = Math.Round(liquidacio, 2)
        Try
            total.Text = CDec(lictotal.Text) + CDec(tartotal.Text) + CDec(unitotal.Text) + CDec(limtotal.Text) + CDec(vuetotal.Text) + CDec(turtotal.Text) + CDec(fretotal.Text) + CDec(dictotal.Text) + CDec(liqtotal.Text) + CDec(renTotal.Text) + CDec(cuiTotal.Text) + CDec(manTotal.Text) + CDec(traTotal.Text) + CDec(ponTotal.Text)
            'f10.Text = CDec(lictotal.Text) + CDec(tartotal.Text) + CDec(unitotal.Text) + CDec(limtotal.Text) + CDec(vuetotal.Text) + CDec(turtotal.Text) + CDec(fretotal.Text) + CDec(dictotal.Text) + CDec(liqtotal.Text) + CDec(renTotal.Text) + CDec(cuiTotal.Text) + CDec(manTotal.Text) + CDec(traTotal.Text) + CDec(ponTotal.Text)

        Catch ex As Exception

        End Try
    End Sub
    Private Sub ren10_ToggleStateChanged(ByVal sender As System.Object, ByVal args As Telerik.WinControls.UI.StateChangedEventArgs) Handles ren10.ToggleStateChanged
        If ren10.Checked = True Then
            Rendimiento = Rendimiento + (10 / 12)
            totaleva10.Text = CDec(totaleva10.Text) + 10
        Else
            Rendimiento = Rendimiento - (10 / 12)
            totaleva10.Text = CDec(totaleva10.Text) - 10
        End If
        renTotal.Text = Math.Round(Rendimiento, 2)
        'f9.Text = Math.Round(liquidacio, 2)
        Try
            total.Text = CDec(lictotal.Text) + CDec(tartotal.Text) + CDec(unitotal.Text) + CDec(limtotal.Text) + CDec(vuetotal.Text) + CDec(turtotal.Text) + CDec(fretotal.Text) + CDec(dictotal.Text) + CDec(liqtotal.Text) + CDec(renTotal.Text) + CDec(cuiTotal.Text) + CDec(manTotal.Text) + CDec(traTotal.Text) + CDec(ponTotal.Text)
            'f10.Text = CDec(lictotal.Text) + CDec(tartotal.Text) + CDec(unitotal.Text) + CDec(limtotal.Text) + CDec(vuetotal.Text) + CDec(turtotal.Text) + CDec(fretotal.Text) + CDec(dictotal.Text) + CDec(liqtotal.Text) + CDec(renTotal.Text) + CDec(cuiTotal.Text) + CDec(manTotal.Text) + CDec(traTotal.Text) + CDec(ponTotal.Text)

        Catch ex As Exception

        End Try
    End Sub
    Private Sub ren11_ToggleStateChanged(ByVal sender As System.Object, ByVal args As Telerik.WinControls.UI.StateChangedEventArgs) Handles ren11.ToggleStateChanged
        If ren1.Checked = True Then
            Rendimiento = Rendimiento + (10 / 12)
            totaleva11.Text = CDec(totaleva11.Text) + 10
        Else
            Rendimiento = Rendimiento - (10 / 12)
            totaleva11.Text = CDec(totaleva11.Text) - 10
        End If
        renTotal.Text = Math.Round(Rendimiento, 2)
        'f9.Text = Math.Round(liquidacio, 2)
        Try
            total.Text = CDec(lictotal.Text) + CDec(tartotal.Text) + CDec(unitotal.Text) + CDec(limtotal.Text) + CDec(vuetotal.Text) + CDec(turtotal.Text) + CDec(fretotal.Text) + CDec(dictotal.Text) + CDec(liqtotal.Text) + CDec(renTotal.Text) + CDec(cuiTotal.Text) + CDec(manTotal.Text) + CDec(traTotal.Text) + CDec(ponTotal.Text)
            'f10.Text = CDec(lictotal.Text) + CDec(tartotal.Text) + CDec(unitotal.Text) + CDec(limtotal.Text) + CDec(vuetotal.Text) + CDec(turtotal.Text) + CDec(fretotal.Text) + CDec(dictotal.Text) + CDec(liqtotal.Text) + CDec(renTotal.Text) + CDec(cuiTotal.Text) + CDec(manTotal.Text) + CDec(traTotal.Text) + CDec(ponTotal.Text)

        Catch ex As Exception

        End Try
    End Sub
    Private Sub ren12_ToggleStateChanged(ByVal sender As System.Object, ByVal args As Telerik.WinControls.UI.StateChangedEventArgs) Handles ren12.ToggleStateChanged
        If ren12.Checked = True Then
            Rendimiento = Rendimiento + (10 / 12)
            totaleva12.Text = CDec(totaleva12.Text) + 10
        Else
            Rendimiento = Rendimiento - (10 / 12)
            totaleva12.Text = CDec(totaleva12.Text) - 10
        End If
        renTotal.Text = Math.Round(Rendimiento, 2)
        'f9.Text = Math.Round(liquidacio, 2)
        Try
            total.Text = CDec(lictotal.Text) + CDec(tartotal.Text) + CDec(unitotal.Text) + CDec(limtotal.Text) + CDec(vuetotal.Text) + CDec(turtotal.Text) + CDec(fretotal.Text) + CDec(dictotal.Text) + CDec(liqtotal.Text) + CDec(renTotal.Text) + CDec(cuiTotal.Text) + CDec(manTotal.Text) + CDec(traTotal.Text) + CDec(ponTotal.Text)
            'f10.Text = CDec(lictotal.Text) + CDec(tartotal.Text) + CDec(unitotal.Text) + CDec(limtotal.Text) + CDec(vuetotal.Text) + CDec(turtotal.Text) + CDec(fretotal.Text) + CDec(dictotal.Text) + CDec(liqtotal.Text) + CDec(renTotal.Text) + CDec(cuiTotal.Text) + CDec(manTotal.Text) + CDec(traTotal.Text) + CDec(ponTotal.Text)

        Catch ex As Exception

        End Try
    End Sub
    Private Sub Cui1_ToggleStateChanged(ByVal sender As System.Object, ByVal args As Telerik.WinControls.UI.StateChangedEventArgs) Handles cui1.ToggleStateChanged
        If cui1.Checked = True Then
            Cuidado = Cuidado + (15 / 12)
            totaleva1.Text = CDec(totaleva1.Text) + 15
        Else
            Cuidado = Cuidado - (15 / 12)
            totaleva1.Text = CDec(totaleva1.Text) - 15
        End If
        cuiTotal.Text = Math.Round(Cuidado, 2)
        'f9.Text = Math.Round(liquidacio, 2)
        Try
            total.Text = CDec(lictotal.Text) + CDec(tartotal.Text) + CDec(unitotal.Text) + CDec(limtotal.Text) + CDec(vuetotal.Text) + CDec(turtotal.Text) + CDec(fretotal.Text) + CDec(dictotal.Text) + CDec(liqtotal.Text) + CDec(renTotal.Text) + CDec(cuiTotal.Text) + CDec(manTotal.Text) + CDec(traTotal.Text) + CDec(ponTotal.Text)
            'f10.Text = CDec(lictotal.Text) + CDec(tartotal.Text) + CDec(unitotal.Text) + CDec(limtotal.Text) + CDec(vuetotal.Text) + CDec(turtotal.Text) + CDec(fretotal.Text) + CDec(dictotal.Text) + CDec(liqtotal.Text) + CDec(renTotal.Text) + CDec(cuiTotal.Text) + CDec(manTotal.Text) + CDec(traTotal.Text) + CDec(ponTotal.Text)

        Catch ex As Exception

        End Try
    End Sub
    Private Sub Cui2_ToggleStateChanged(ByVal sender As System.Object, ByVal args As Telerik.WinControls.UI.StateChangedEventArgs) Handles cui2.ToggleStateChanged
        If cui2.Checked = True Then
            Cuidado = Cuidado + (15 / 12)
            totaleva2.Text = CDec(totaleva2.Text) + 15
        Else
            Cuidado = Cuidado - (15 / 12)
            totaleva2.Text = CDec(totaleva2.Text) - 15
        End If
        cuiTotal.Text = Math.Round(Cuidado, 2)
        'f9.Text = Math.Round(liquidacio, 2)
        Try
            total.Text = CDec(lictotal.Text) + CDec(tartotal.Text) + CDec(unitotal.Text) + CDec(limtotal.Text) + CDec(vuetotal.Text) + CDec(turtotal.Text) + CDec(fretotal.Text) + CDec(dictotal.Text) + CDec(liqtotal.Text) + CDec(renTotal.Text) + CDec(cuiTotal.Text) + CDec(manTotal.Text) + CDec(traTotal.Text) + CDec(ponTotal.Text)
            'f10.Text = CDec(lictotal.Text) + CDec(tartotal.Text) + CDec(unitotal.Text) + CDec(limtotal.Text) + CDec(vuetotal.Text) + CDec(turtotal.Text) + CDec(fretotal.Text) + CDec(dictotal.Text) + CDec(liqtotal.Text) + CDec(renTotal.Text) + CDec(cuiTotal.Text) + CDec(manTotal.Text) + CDec(traTotal.Text) + CDec(ponTotal.Text)

        Catch ex As Exception

        End Try
    End Sub
    Private Sub Cui3_ToggleStateChanged(ByVal sender As System.Object, ByVal args As Telerik.WinControls.UI.StateChangedEventArgs) Handles cui3.ToggleStateChanged
        If cui3.Checked = True Then
            Cuidado = Cuidado + (15 / 12)
            totaleva3.Text = CDec(totaleva3.Text) + 15
        Else
            Cuidado = Cuidado - (15 / 12)
            totaleva3.Text = CDec(totaleva3.Text) - 15
        End If
        cuiTotal.Text = Math.Round(Cuidado, 2)
        'f9.Text = Math.Round(liquidacio, 2)
        Try
            total.Text = CDec(lictotal.Text) + CDec(tartotal.Text) + CDec(unitotal.Text) + CDec(limtotal.Text) + CDec(vuetotal.Text) + CDec(turtotal.Text) + CDec(fretotal.Text) + CDec(dictotal.Text) + CDec(liqtotal.Text) + CDec(renTotal.Text) + CDec(cuiTotal.Text) + CDec(manTotal.Text) + CDec(traTotal.Text) + CDec(ponTotal.Text)
            'f10.Text = CDec(lictotal.Text) + CDec(tartotal.Text) + CDec(unitotal.Text) + CDec(limtotal.Text) + CDec(vuetotal.Text) + CDec(turtotal.Text) + CDec(fretotal.Text) + CDec(dictotal.Text) + CDec(liqtotal.Text) + CDec(renTotal.Text) + CDec(cuiTotal.Text) + CDec(manTotal.Text) + CDec(traTotal.Text) + CDec(ponTotal.Text)

        Catch ex As Exception

        End Try
    End Sub
    Private Sub Cui4_ToggleStateChanged(ByVal sender As System.Object, ByVal args As Telerik.WinControls.UI.StateChangedEventArgs) Handles cui4.ToggleStateChanged
        If cui4.Checked = True Then
            Cuidado = Cuidado + (15 / 12)
            totaleva4.Text = CDec(totaleva4.Text) + 15
        Else
            Cuidado = Cuidado - (15 / 12)
            totaleva4.Text = CDec(totaleva4.Text) - 15
        End If
        cuiTotal.Text = Math.Round(Cuidado, 2)
        'f9.Text = Math.Round(liquidacio, 2)
        Try
            total.Text = CDec(lictotal.Text) + CDec(tartotal.Text) + CDec(unitotal.Text) + CDec(limtotal.Text) + CDec(vuetotal.Text) + CDec(turtotal.Text) + CDec(fretotal.Text) + CDec(dictotal.Text) + CDec(liqtotal.Text) + CDec(renTotal.Text) + CDec(cuiTotal.Text) + CDec(manTotal.Text) + CDec(traTotal.Text) + CDec(ponTotal.Text)
            'f10.Text = CDec(lictotal.Text) + CDec(tartotal.Text) + CDec(unitotal.Text) + CDec(limtotal.Text) + CDec(vuetotal.Text) + CDec(turtotal.Text) + CDec(fretotal.Text) + CDec(dictotal.Text) + CDec(liqtotal.Text) + CDec(renTotal.Text) + CDec(cuiTotal.Text) + CDec(manTotal.Text) + CDec(traTotal.Text) + CDec(ponTotal.Text)

        Catch ex As Exception

        End Try
    End Sub
    Private Sub Cui5_ToggleStateChanged(ByVal sender As System.Object, ByVal args As Telerik.WinControls.UI.StateChangedEventArgs) Handles cui5.ToggleStateChanged
        If cui5.Checked = True Then
            Cuidado = Cuidado + (15 / 12)
            totaleva5.Text = CDec(totaleva5.Text) + 15
        Else
            Cuidado = Cuidado - (15 / 12)
            totaleva5.Text = CDec(totaleva5.Text) - 15
        End If
        cuiTotal.Text = Math.Round(Cuidado, 2)
        'f9.Text = Math.Round(liquidacio, 2)
        Try
            total.Text = CDec(lictotal.Text) + CDec(tartotal.Text) + CDec(unitotal.Text) + CDec(limtotal.Text) + CDec(vuetotal.Text) + CDec(turtotal.Text) + CDec(fretotal.Text) + CDec(dictotal.Text) + CDec(liqtotal.Text) + CDec(renTotal.Text) + CDec(cuiTotal.Text) + CDec(manTotal.Text) + CDec(traTotal.Text) + CDec(ponTotal.Text)
            'f10.Text = CDec(lictotal.Text) + CDec(tartotal.Text) + CDec(unitotal.Text) + CDec(limtotal.Text) + CDec(vuetotal.Text) + CDec(turtotal.Text) + CDec(fretotal.Text) + CDec(dictotal.Text) + CDec(liqtotal.Text) + CDec(renTotal.Text) + CDec(cuiTotal.Text) + CDec(manTotal.Text) + CDec(traTotal.Text) + CDec(ponTotal.Text)

        Catch ex As Exception

        End Try
    End Sub
    Private Sub Cui6_ToggleStateChanged(ByVal sender As System.Object, ByVal args As Telerik.WinControls.UI.StateChangedEventArgs) Handles cui6.ToggleStateChanged
        If cui6.Checked = True Then
            Cuidado = Cuidado + (15 / 12)
            totaleva6.Text = CDec(totaleva6.Text) + 15
        Else
            Cuidado = Cuidado - (15 / 12)
            totaleva6.Text = CDec(totaleva6.Text) - 15
        End If
        cuiTotal.Text = Math.Round(Cuidado, 2)
        'f9.Text = Math.Round(liquidacio, 2)
        Try
            total.Text = CDec(lictotal.Text) + CDec(tartotal.Text) + CDec(unitotal.Text) + CDec(limtotal.Text) + CDec(vuetotal.Text) + CDec(turtotal.Text) + CDec(fretotal.Text) + CDec(dictotal.Text) + CDec(liqtotal.Text) + CDec(renTotal.Text) + CDec(cuiTotal.Text) + CDec(manTotal.Text) + CDec(traTotal.Text) + CDec(ponTotal.Text)
            'f10.Text = CDec(lictotal.Text) + CDec(tartotal.Text) + CDec(unitotal.Text) + CDec(limtotal.Text) + CDec(vuetotal.Text) + CDec(turtotal.Text) + CDec(fretotal.Text) + CDec(dictotal.Text) + CDec(liqtotal.Text) + CDec(renTotal.Text) + CDec(cuiTotal.Text) + CDec(manTotal.Text) + CDec(traTotal.Text) + CDec(ponTotal.Text)

        Catch ex As Exception

        End Try
    End Sub
    Private Sub Cui7_ToggleStateChanged(ByVal sender As System.Object, ByVal args As Telerik.WinControls.UI.StateChangedEventArgs) Handles cui7.ToggleStateChanged
        If cui7.Checked = True Then
            Cuidado = Cuidado + (15 / 12)
            totaleva7.Text = CDec(totaleva7.Text) + 15
        Else
            Cuidado = Cuidado - (15 / 12)
            totaleva7.Text = CDec(totaleva7.Text) - 15
        End If
        cuiTotal.Text = Math.Round(Cuidado, 2)
        'f9.Text = Math.Round(liquidacio, 2)
        Try
            total.Text = CDec(lictotal.Text) + CDec(tartotal.Text) + CDec(unitotal.Text) + CDec(limtotal.Text) + CDec(vuetotal.Text) + CDec(turtotal.Text) + CDec(fretotal.Text) + CDec(dictotal.Text) + CDec(liqtotal.Text) + CDec(renTotal.Text) + CDec(cuiTotal.Text) + CDec(manTotal.Text) + CDec(traTotal.Text) + CDec(ponTotal.Text)
            'f10.Text = CDec(lictotal.Text) + CDec(tartotal.Text) + CDec(unitotal.Text) + CDec(limtotal.Text) + CDec(vuetotal.Text) + CDec(turtotal.Text) + CDec(fretotal.Text) + CDec(dictotal.Text) + CDec(liqtotal.Text) + CDec(renTotal.Text) + CDec(cuiTotal.Text) + CDec(manTotal.Text) + CDec(traTotal.Text) + CDec(ponTotal.Text)

        Catch ex As Exception

        End Try
    End Sub
    Private Sub Cui8_ToggleStateChanged(ByVal sender As System.Object, ByVal args As Telerik.WinControls.UI.StateChangedEventArgs) Handles cui8.ToggleStateChanged
        If cui8.Checked = True Then
            Cuidado = Cuidado + (15 / 12)
            totaleva8.Text = CDec(totaleva8.Text) + 15
        Else
            Cuidado = Cuidado - (15 / 12)
            totaleva8.Text = CDec(totaleva8.Text) - 15
        End If
        cuiTotal.Text = Math.Round(Cuidado, 2)
        'f9.Text = Math.Round(liquidacio, 2)
        Try
            total.Text = CDec(lictotal.Text) + CDec(tartotal.Text) + CDec(unitotal.Text) + CDec(limtotal.Text) + CDec(vuetotal.Text) + CDec(turtotal.Text) + CDec(fretotal.Text) + CDec(dictotal.Text) + CDec(liqtotal.Text) + CDec(renTotal.Text) + CDec(cuiTotal.Text) + CDec(manTotal.Text) + CDec(traTotal.Text) + CDec(ponTotal.Text)
            'f10.Text = CDec(lictotal.Text) + CDec(tartotal.Text) + CDec(unitotal.Text) + CDec(limtotal.Text) + CDec(vuetotal.Text) + CDec(turtotal.Text) + CDec(fretotal.Text) + CDec(dictotal.Text) + CDec(liqtotal.Text) + CDec(renTotal.Text) + CDec(cuiTotal.Text) + CDec(manTotal.Text) + CDec(traTotal.Text) + CDec(ponTotal.Text)

        Catch ex As Exception

        End Try
    End Sub
    Private Sub Cui9_ToggleStateChanged(ByVal sender As System.Object, ByVal args As Telerik.WinControls.UI.StateChangedEventArgs) Handles cui9.ToggleStateChanged
        If cui9.Checked = True Then
            Cuidado = Cuidado + (15 / 12)
            totaleva9.Text = CDec(totaleva9.Text) + 15
        Else
            Cuidado = Cuidado - (15 / 12)
            totaleva9.Text = CDec(totaleva9.Text) - 15
        End If
        cuiTotal.Text = Math.Round(Cuidado, 2)
        'f9.Text = Math.Round(liquidacio, 2)
        Try
            total.Text = CDec(lictotal.Text) + CDec(tartotal.Text) + CDec(unitotal.Text) + CDec(limtotal.Text) + CDec(vuetotal.Text) + CDec(turtotal.Text) + CDec(fretotal.Text) + CDec(dictotal.Text) + CDec(liqtotal.Text) + CDec(renTotal.Text) + CDec(cuiTotal.Text) + CDec(manTotal.Text) + CDec(traTotal.Text) + CDec(ponTotal.Text)
            'f10.Text = CDec(lictotal.Text) + CDec(tartotal.Text) + CDec(unitotal.Text) + CDec(limtotal.Text) + CDec(vuetotal.Text) + CDec(turtotal.Text) + CDec(fretotal.Text) + CDec(dictotal.Text) + CDec(liqtotal.Text) + CDec(renTotal.Text) + CDec(cuiTotal.Text) + CDec(manTotal.Text) + CDec(traTotal.Text) + CDec(ponTotal.Text)

        Catch ex As Exception

        End Try
    End Sub
    Private Sub Cui10_ToggleStateChanged(ByVal sender As System.Object, ByVal args As Telerik.WinControls.UI.StateChangedEventArgs) Handles cui10.ToggleStateChanged
        If cui10.Checked = True Then
            Cuidado = Cuidado + (15 / 12)
            totaleva10.Text = CDec(totaleva10.Text) + 15
        Else
            Cuidado = Cuidado - (15 / 12)
            totaleva10.Text = CDec(totaleva10.Text) - 15
        End If
        cuiTotal.Text = Math.Round(Cuidado, 2)
        'f9.Text = Math.Round(liquidacio, 2)
        Try
            total.Text = CDec(lictotal.Text) + CDec(tartotal.Text) + CDec(unitotal.Text) + CDec(limtotal.Text) + CDec(vuetotal.Text) + CDec(turtotal.Text) + CDec(fretotal.Text) + CDec(dictotal.Text) + CDec(liqtotal.Text) + CDec(renTotal.Text) + CDec(cuiTotal.Text) + CDec(manTotal.Text) + CDec(traTotal.Text) + CDec(ponTotal.Text)
            'f10.Text = CDec(lictotal.Text) + CDec(tartotal.Text) + CDec(unitotal.Text) + CDec(limtotal.Text) + CDec(vuetotal.Text) + CDec(turtotal.Text) + CDec(fretotal.Text) + CDec(dictotal.Text) + CDec(liqtotal.Text) + CDec(renTotal.Text) + CDec(cuiTotal.Text) + CDec(manTotal.Text) + CDec(traTotal.Text) + CDec(ponTotal.Text)

        Catch ex As Exception

        End Try
    End Sub
    Private Sub Cui11_ToggleStateChanged(ByVal sender As System.Object, ByVal args As Telerik.WinControls.UI.StateChangedEventArgs) Handles cui11.ToggleStateChanged
        If cui11.Checked = True Then
            Cuidado = Cuidado + (15 / 12)
            totaleva11.Text = CDec(totaleva11.Text) + 15
        Else
            Cuidado = Cuidado - (15 / 12)
            totaleva11.Text = CDec(totaleva11.Text) - 15
        End If
        cuiTotal.Text = Math.Round(Cuidado, 2)
        'f9.Text = Math.Round(liquidacio, 2)
        Try
            total.Text = CDec(lictotal.Text) + CDec(tartotal.Text) + CDec(unitotal.Text) + CDec(limtotal.Text) + CDec(vuetotal.Text) + CDec(turtotal.Text) + CDec(fretotal.Text) + CDec(dictotal.Text) + CDec(liqtotal.Text) + CDec(renTotal.Text) + CDec(cuiTotal.Text) + CDec(manTotal.Text) + CDec(traTotal.Text) + CDec(ponTotal.Text)
            'f10.Text = CDec(lictotal.Text) + CDec(tartotal.Text) + CDec(unitotal.Text) + CDec(limtotal.Text) + CDec(vuetotal.Text) + CDec(turtotal.Text) + CDec(fretotal.Text) + CDec(dictotal.Text) + CDec(liqtotal.Text) + CDec(renTotal.Text) + CDec(cuiTotal.Text) + CDec(manTotal.Text) + CDec(traTotal.Text) + CDec(ponTotal.Text)

        Catch ex As Exception

        End Try
    End Sub
    Private Sub Cui12_ToggleStateChanged(ByVal sender As System.Object, ByVal args As Telerik.WinControls.UI.StateChangedEventArgs) Handles cui12.ToggleStateChanged
        If cui12.Checked = True Then
            Cuidado = Cuidado + (15 / 12)
            totaleva12.Text = CDec(totaleva12.Text) + 15
        Else
            Cuidado = Cuidado - (15 / 12)
            totaleva12.Text = CDec(totaleva12.Text) - 15
        End If
        cuiTotal.Text = Math.Round(Cuidado, 2)
        'f9.Text = Math.Round(liquidacio, 2)
        Try
            total.Text = CDec(lictotal.Text) + CDec(tartotal.Text) + CDec(unitotal.Text) + CDec(limtotal.Text) + CDec(vuetotal.Text) + CDec(turtotal.Text) + CDec(fretotal.Text) + CDec(dictotal.Text) + CDec(liqtotal.Text) + CDec(renTotal.Text) + CDec(cuiTotal.Text) + CDec(manTotal.Text) + CDec(traTotal.Text) + CDec(ponTotal.Text)
            'f10.Text = CDec(lictotal.Text) + CDec(tartotal.Text) + CDec(unitotal.Text) + CDec(limtotal.Text) + CDec(vuetotal.Text) + CDec(turtotal.Text) + CDec(fretotal.Text) + CDec(dictotal.Text) + CDec(liqtotal.Text) + CDec(renTotal.Text) + CDec(cuiTotal.Text) + CDec(manTotal.Text) + CDec(traTotal.Text) + CDec(ponTotal.Text)

        Catch ex As Exception

        End Try
    End Sub
    Private Sub man1_ToggleStateChanged(ByVal sender As System.Object, ByVal args As Telerik.WinControls.UI.StateChangedEventArgs) Handles man1.ToggleStateChanged
        If man1.Checked = True Then
            Manejo = Manejo + (10 / 12)
            totaleva1.Text = CDec(totaleva1.Text) + 10
        Else
            Manejo = Manejo - (10 / 12)
            totaleva1.Text = CDec(totaleva1.Text) - 10
        End If
        manTotal.Text = Math.Round(Manejo, 2)
        'f9.Text = Math.Round(liquidacio, 2)
        Try
            total.Text = CDec(lictotal.Text) + CDec(tartotal.Text) + CDec(unitotal.Text) + CDec(limtotal.Text) + CDec(vuetotal.Text) + CDec(turtotal.Text) + CDec(fretotal.Text) + CDec(dictotal.Text) + CDec(liqtotal.Text) + CDec(renTotal.Text) + CDec(cuiTotal.Text) + CDec(manTotal.Text) + CDec(traTotal.Text) + CDec(ponTotal.Text)
            'f10.Text = CDec(lictotal.Text) + CDec(tartotal.Text) + CDec(unitotal.Text) + CDec(limtotal.Text) + CDec(vuetotal.Text) + CDec(turtotal.Text) + CDec(fretotal.Text) + CDec(dictotal.Text) + CDec(liqtotal.Text) + CDec(renTotal.Text) + CDec(cuiTotal.Text) + CDec(manTotal.Text) + CDec(traTotal.Text) + CDec(ponTotal.Text)

        Catch ex As Exception

        End Try
    End Sub
    Private Sub man2_ToggleStateChanged(ByVal sender As System.Object, ByVal args As Telerik.WinControls.UI.StateChangedEventArgs) Handles man2.ToggleStateChanged
        If man2.Checked = True Then
            Manejo = Manejo + (10 / 12)
            totaleva2.Text = CDec(totaleva2.Text) + 10
        Else
            Manejo = Manejo - (10 / 12)
            totaleva2.Text = CDec(totaleva2.Text) - 10
        End If
        manTotal.Text = Math.Round(Manejo, 2)
        'f9.Text = Math.Round(liquidacio, 2)
        Try
            total.Text = CDec(lictotal.Text) + CDec(tartotal.Text) + CDec(unitotal.Text) + CDec(limtotal.Text) + CDec(vuetotal.Text) + CDec(turtotal.Text) + CDec(fretotal.Text) + CDec(dictotal.Text) + CDec(liqtotal.Text) + CDec(renTotal.Text) + CDec(cuiTotal.Text) + CDec(manTotal.Text) + CDec(traTotal.Text) + CDec(ponTotal.Text)
            'f10.Text = CDec(lictotal.Text) + CDec(tartotal.Text) + CDec(unitotal.Text) + CDec(limtotal.Text) + CDec(vuetotal.Text) + CDec(turtotal.Text) + CDec(fretotal.Text) + CDec(dictotal.Text) + CDec(liqtotal.Text) + CDec(renTotal.Text) + CDec(cuiTotal.Text) + CDec(manTotal.Text) + CDec(traTotal.Text) + CDec(ponTotal.Text)

        Catch ex As Exception

        End Try
    End Sub
    Private Sub man3_ToggleStateChanged(ByVal sender As System.Object, ByVal args As Telerik.WinControls.UI.StateChangedEventArgs) Handles man3.ToggleStateChanged
        If man3.Checked = True Then
            Manejo = Manejo + (10 / 12)
            totaleva3.Text = CDec(totaleva3.Text) + 10
        Else
            Manejo = Manejo - (10 / 12)
            totaleva3.Text = CDec(totaleva3.Text) - 10
        End If
        manTotal.Text = Math.Round(Manejo, 2)
        'f9.Text = Math.Round(liquidacio, 2)
        Try
            total.Text = CDec(lictotal.Text) + CDec(tartotal.Text) + CDec(unitotal.Text) + CDec(limtotal.Text) + CDec(vuetotal.Text) + CDec(turtotal.Text) + CDec(fretotal.Text) + CDec(dictotal.Text) + CDec(liqtotal.Text) + CDec(renTotal.Text) + CDec(cuiTotal.Text) + CDec(manTotal.Text) + CDec(traTotal.Text) + CDec(ponTotal.Text)
            'f10.Text = CDec(lictotal.Text) + CDec(tartotal.Text) + CDec(unitotal.Text) + CDec(limtotal.Text) + CDec(vuetotal.Text) + CDec(turtotal.Text) + CDec(fretotal.Text) + CDec(dictotal.Text) + CDec(liqtotal.Text) + CDec(renTotal.Text) + CDec(cuiTotal.Text) + CDec(manTotal.Text) + CDec(traTotal.Text) + CDec(ponTotal.Text)

        Catch ex As Exception

        End Try
    End Sub
    Private Sub man4_ToggleStateChanged(ByVal sender As System.Object, ByVal args As Telerik.WinControls.UI.StateChangedEventArgs) Handles man4.ToggleStateChanged
        If man4.Checked = True Then
            Manejo = Manejo + (10 / 12)
            totaleva4.Text = CDec(totaleva4.Text) + 10
        Else
            Manejo = Manejo - (10 / 12)
            totaleva4.Text = CDec(totaleva4.Text) - 10
        End If
        manTotal.Text = Math.Round(Manejo, 2)
        'f9.Text = Math.Round(liquidacio, 2)
        Try
            total.Text = CDec(lictotal.Text) + CDec(tartotal.Text) + CDec(unitotal.Text) + CDec(limtotal.Text) + CDec(vuetotal.Text) + CDec(turtotal.Text) + CDec(fretotal.Text) + CDec(dictotal.Text) + CDec(liqtotal.Text) + CDec(renTotal.Text) + CDec(cuiTotal.Text) + CDec(manTotal.Text) + CDec(traTotal.Text) + CDec(ponTotal.Text)
            'f10.Text = CDec(lictotal.Text) + CDec(tartotal.Text) + CDec(unitotal.Text) + CDec(limtotal.Text) + CDec(vuetotal.Text) + CDec(turtotal.Text) + CDec(fretotal.Text) + CDec(dictotal.Text) + CDec(liqtotal.Text) + CDec(renTotal.Text) + CDec(cuiTotal.Text) + CDec(manTotal.Text) + CDec(traTotal.Text) + CDec(ponTotal.Text)

        Catch ex As Exception

        End Try
    End Sub
    Private Sub man5_ToggleStateChanged(ByVal sender As System.Object, ByVal args As Telerik.WinControls.UI.StateChangedEventArgs) Handles man5.ToggleStateChanged
        If man5.Checked = True Then
            Manejo = Manejo + (10 / 12)
            totaleva5.Text = CDec(totaleva5.Text) + 10
        Else
            Manejo = Manejo - (10 / 12)
            totaleva5.Text = CDec(totaleva5.Text) - 10
        End If
        manTotal.Text = Math.Round(Manejo, 2)
        'f9.Text = Math.Round(liquidacio, 2)
        Try
            total.Text = CDec(lictotal.Text) + CDec(tartotal.Text) + CDec(unitotal.Text) + CDec(limtotal.Text) + CDec(vuetotal.Text) + CDec(turtotal.Text) + CDec(fretotal.Text) + CDec(dictotal.Text) + CDec(liqtotal.Text) + CDec(renTotal.Text) + CDec(cuiTotal.Text) + CDec(manTotal.Text) + CDec(traTotal.Text) + CDec(ponTotal.Text)
            'f10.Text = CDec(lictotal.Text) + CDec(tartotal.Text) + CDec(unitotal.Text) + CDec(limtotal.Text) + CDec(vuetotal.Text) + CDec(turtotal.Text) + CDec(fretotal.Text) + CDec(dictotal.Text) + CDec(liqtotal.Text) + CDec(renTotal.Text) + CDec(cuiTotal.Text) + CDec(manTotal.Text) + CDec(traTotal.Text) + CDec(ponTotal.Text)

        Catch ex As Exception

        End Try
    End Sub
    Private Sub man6_ToggleStateChanged(ByVal sender As System.Object, ByVal args As Telerik.WinControls.UI.StateChangedEventArgs) Handles man6.ToggleStateChanged
        If man6.Checked = True Then
            Manejo = Manejo + (10 / 12)
            totaleva6.Text = CDec(totaleva6.Text) + 10
        Else
            Manejo = Manejo - (10 / 12)
            totaleva6.Text = CDec(totaleva6.Text) - 10
        End If
        manTotal.Text = Math.Round(Manejo, 2)
        'f9.Text = Math.Round(liquidacio, 2)
        Try
            total.Text = CDec(lictotal.Text) + CDec(tartotal.Text) + CDec(unitotal.Text) + CDec(limtotal.Text) + CDec(vuetotal.Text) + CDec(turtotal.Text) + CDec(fretotal.Text) + CDec(dictotal.Text) + CDec(liqtotal.Text) + CDec(renTotal.Text) + CDec(cuiTotal.Text) + CDec(manTotal.Text) + CDec(traTotal.Text) + CDec(ponTotal.Text)
            'f10.Text = CDec(lictotal.Text) + CDec(tartotal.Text) + CDec(unitotal.Text) + CDec(limtotal.Text) + CDec(vuetotal.Text) + CDec(turtotal.Text) + CDec(fretotal.Text) + CDec(dictotal.Text) + CDec(liqtotal.Text) + CDec(renTotal.Text) + CDec(cuiTotal.Text) + CDec(manTotal.Text) + CDec(traTotal.Text) + CDec(ponTotal.Text)

        Catch ex As Exception

        End Try
    End Sub
    Private Sub man7_ToggleStateChanged(ByVal sender As System.Object, ByVal args As Telerik.WinControls.UI.StateChangedEventArgs) Handles man7.ToggleStateChanged
        If man7.Checked = True Then
            Manejo = Manejo + (10 / 12)
            totaleva7.Text = CDec(totaleva7.Text) + 10
        Else
            Manejo = Manejo - (10 / 12)
            totaleva7.Text = CDec(totaleva7.Text) - 10
        End If
        manTotal.Text = Math.Round(Manejo, 2)
        'f9.Text = Math.Round(liquidacio, 2)
        Try
            total.Text = CDec(lictotal.Text) + CDec(tartotal.Text) + CDec(unitotal.Text) + CDec(limtotal.Text) + CDec(vuetotal.Text) + CDec(turtotal.Text) + CDec(fretotal.Text) + CDec(dictotal.Text) + CDec(liqtotal.Text) + CDec(renTotal.Text) + CDec(cuiTotal.Text) + CDec(manTotal.Text) + CDec(traTotal.Text) + CDec(ponTotal.Text)
            'f10.Text = CDec(lictotal.Text) + CDec(tartotal.Text) + CDec(unitotal.Text) + CDec(limtotal.Text) + CDec(vuetotal.Text) + CDec(turtotal.Text) + CDec(fretotal.Text) + CDec(dictotal.Text) + CDec(liqtotal.Text) + CDec(renTotal.Text) + CDec(cuiTotal.Text) + CDec(manTotal.Text) + CDec(traTotal.Text) + CDec(ponTotal.Text)

        Catch ex As Exception

        End Try
    End Sub
    Private Sub man8_ToggleStateChanged(ByVal sender As System.Object, ByVal args As Telerik.WinControls.UI.StateChangedEventArgs) Handles man8.ToggleStateChanged
        If man8.Checked = True Then
            Manejo = Manejo + (10 / 12)
            totaleva8.Text = CDec(totaleva8.Text) + 10
        Else
            Manejo = Manejo - (10 / 12)
            totaleva8.Text = CDec(totaleva8.Text) - 10
        End If
        manTotal.Text = Math.Round(Manejo, 2)
        'f9.Text = Math.Round(liquidacio, 2)
        Try
            total.Text = CDec(lictotal.Text) + CDec(tartotal.Text) + CDec(unitotal.Text) + CDec(limtotal.Text) + CDec(vuetotal.Text) + CDec(turtotal.Text) + CDec(fretotal.Text) + CDec(dictotal.Text) + CDec(liqtotal.Text) + CDec(renTotal.Text) + CDec(cuiTotal.Text) + CDec(manTotal.Text) + CDec(traTotal.Text) + CDec(ponTotal.Text)
            'f10.Text = CDec(lictotal.Text) + CDec(tartotal.Text) + CDec(unitotal.Text) + CDec(limtotal.Text) + CDec(vuetotal.Text) + CDec(turtotal.Text) + CDec(fretotal.Text) + CDec(dictotal.Text) + CDec(liqtotal.Text) + CDec(renTotal.Text) + CDec(cuiTotal.Text) + CDec(manTotal.Text) + CDec(traTotal.Text) + CDec(ponTotal.Text)

        Catch ex As Exception

        End Try
    End Sub
    Private Sub man9_ToggleStateChanged(ByVal sender As System.Object, ByVal args As Telerik.WinControls.UI.StateChangedEventArgs) Handles man9.ToggleStateChanged
        If man9.Checked = True Then
            Manejo = Manejo + (10 / 12)
            totaleva9.Text = CDec(totaleva9.Text) + 10
        Else
            Manejo = Manejo - (10 / 12)
            totaleva9.Text = CDec(totaleva9.Text) - 10
        End If
        manTotal.Text = Math.Round(Manejo, 2)
        'f9.Text = Math.Round(liquidacio, 2)
        Try
            total.Text = CDec(lictotal.Text) + CDec(tartotal.Text) + CDec(unitotal.Text) + CDec(limtotal.Text) + CDec(vuetotal.Text) + CDec(turtotal.Text) + CDec(fretotal.Text) + CDec(dictotal.Text) + CDec(liqtotal.Text) + CDec(renTotal.Text) + CDec(cuiTotal.Text) + CDec(manTotal.Text) + CDec(traTotal.Text) + CDec(ponTotal.Text)
            'f10.Text = CDec(lictotal.Text) + CDec(tartotal.Text) + CDec(unitotal.Text) + CDec(limtotal.Text) + CDec(vuetotal.Text) + CDec(turtotal.Text) + CDec(fretotal.Text) + CDec(dictotal.Text) + CDec(liqtotal.Text) + CDec(renTotal.Text) + CDec(cuiTotal.Text) + CDec(manTotal.Text) + CDec(traTotal.Text) + CDec(ponTotal.Text)

        Catch ex As Exception

        End Try
    End Sub
    Private Sub man10_ToggleStateChanged(ByVal sender As System.Object, ByVal args As Telerik.WinControls.UI.StateChangedEventArgs) Handles man10.ToggleStateChanged
        If man10.Checked = True Then
            Manejo = Manejo + (10 / 12)
            totaleva10.Text = CDec(totaleva10.Text) + 10
        Else
            Manejo = Manejo - (10 / 12)
            totaleva10.Text = CDec(totaleva10.Text) - 10
        End If
        manTotal.Text = Math.Round(Manejo, 2)
        'f9.Text = Math.Round(liquidacio, 2)
        Try
            total.Text = CDec(lictotal.Text) + CDec(tartotal.Text) + CDec(unitotal.Text) + CDec(limtotal.Text) + CDec(vuetotal.Text) + CDec(turtotal.Text) + CDec(fretotal.Text) + CDec(dictotal.Text) + CDec(liqtotal.Text) + CDec(renTotal.Text) + CDec(cuiTotal.Text) + CDec(manTotal.Text) + CDec(traTotal.Text) + CDec(ponTotal.Text)
            'f10.Text = CDec(lictotal.Text) + CDec(tartotal.Text) + CDec(unitotal.Text) + CDec(limtotal.Text) + CDec(vuetotal.Text) + CDec(turtotal.Text) + CDec(fretotal.Text) + CDec(dictotal.Text) + CDec(liqtotal.Text) + CDec(renTotal.Text) + CDec(cuiTotal.Text) + CDec(manTotal.Text) + CDec(traTotal.Text) + CDec(ponTotal.Text)

        Catch ex As Exception

        End Try
    End Sub
    Private Sub man11_ToggleStateChanged(ByVal sender As System.Object, ByVal args As Telerik.WinControls.UI.StateChangedEventArgs) Handles man11.ToggleStateChanged
        If man11.Checked = True Then
            Manejo = Manejo + (10 / 12)
            totaleva11.Text = CDec(totaleva11.Text) + 10
        Else
            Manejo = Manejo - (10 / 12)
            totaleva11.Text = CDec(totaleva11.Text) - 10
        End If
        manTotal.Text = Math.Round(Manejo, 2)
        'f9.Text = Math.Round(liquidacio, 2)
        Try
            total.Text = CDec(lictotal.Text) + CDec(tartotal.Text) + CDec(unitotal.Text) + CDec(limtotal.Text) + CDec(vuetotal.Text) + CDec(turtotal.Text) + CDec(fretotal.Text) + CDec(dictotal.Text) + CDec(liqtotal.Text) + CDec(renTotal.Text) + CDec(cuiTotal.Text) + CDec(manTotal.Text) + CDec(traTotal.Text) + CDec(ponTotal.Text)
            'f10.Text = CDec(lictotal.Text) + CDec(tartotal.Text) + CDec(unitotal.Text) + CDec(limtotal.Text) + CDec(vuetotal.Text) + CDec(turtotal.Text) + CDec(fretotal.Text) + CDec(dictotal.Text) + CDec(liqtotal.Text) + CDec(renTotal.Text) + CDec(cuiTotal.Text) + CDec(manTotal.Text) + CDec(traTotal.Text) + CDec(ponTotal.Text)

        Catch ex As Exception

        End Try
    End Sub
    Private Sub man12_ToggleStateChanged(ByVal sender As System.Object, ByVal args As Telerik.WinControls.UI.StateChangedEventArgs) Handles man12.ToggleStateChanged
        If man12.Checked = True Then
            Manejo = Manejo + (10 / 12)
            totaleva12.Text = CDec(totaleva12.Text) + 10
        Else
            Manejo = Manejo - (10 / 12)
            totaleva12.Text = CDec(totaleva12.Text) - 10
        End If
        manTotal.Text = Math.Round(Manejo, 2)
        'f9.Text = Math.Round(liquidacio, 2)
        Try
            total.Text = CDec(lictotal.Text) + CDec(tartotal.Text) + CDec(unitotal.Text) + CDec(limtotal.Text) + CDec(vuetotal.Text) + CDec(turtotal.Text) + CDec(fretotal.Text) + CDec(dictotal.Text) + CDec(liqtotal.Text) + CDec(renTotal.Text) + CDec(cuiTotal.Text) + CDec(manTotal.Text) + CDec(traTotal.Text) + CDec(ponTotal.Text)
            'f10.Text = CDec(lictotal.Text) + CDec(tartotal.Text) + CDec(unitotal.Text) + CDec(limtotal.Text) + CDec(vuetotal.Text) + CDec(turtotal.Text) + CDec(fretotal.Text) + CDec(dictotal.Text) + CDec(liqtotal.Text) + CDec(renTotal.Text) + CDec(cuiTotal.Text) + CDec(manTotal.Text) + CDec(traTotal.Text) + CDec(ponTotal.Text)

        Catch ex As Exception

        End Try
    End Sub
    Private Sub tra1_ToggleStateChanged(ByVal sender As System.Object, ByVal args As Telerik.WinControls.UI.StateChangedEventArgs) Handles tra1.ToggleStateChanged
        If tra1.Checked = True Then
            Trato = Trato + (5 / 12)
            totaleva1.Text = CDec(totaleva1.Text) + 5
        Else
            Trato = Trato - (5 / 12)
            totaleva1.Text = CDec(totaleva1.Text) - 5
        End If
        traTotal.Text = Math.Round(Trato, 2)
        'f9.Text = Math.Round(liquidacio, 2)
        Try
            total.Text = CDec(lictotal.Text) + CDec(tartotal.Text) + CDec(unitotal.Text) + CDec(limtotal.Text) + CDec(vuetotal.Text) + CDec(turtotal.Text) + CDec(fretotal.Text) + CDec(dictotal.Text) + CDec(liqtotal.Text) + CDec(renTotal.Text) + CDec(cuiTotal.Text) + CDec(manTotal.Text) + CDec(traTotal.Text) + CDec(ponTotal.Text)
            'f10.Text = CDec(lictotal.Text) + CDec(tartotal.Text) + CDec(unitotal.Text) + CDec(limtotal.Text) + CDec(vuetotal.Text) + CDec(turtotal.Text) + CDec(fretotal.Text) + CDec(dictotal.Text) + CDec(liqtotal.Text) + CDec(renTotal.Text) + CDec(cuiTotal.Text) + CDec(manTotal.Text) + CDec(traTotal.Text) + CDec(ponTotal.Text)

        Catch ex As Exception

        End Try
    End Sub
    Private Sub tra2_ToggleStateChanged(ByVal sender As System.Object, ByVal args As Telerik.WinControls.UI.StateChangedEventArgs) Handles tra2.ToggleStateChanged
        If tra2.Checked = True Then
            Trato = Trato + (5 / 12)
            totaleva2.Text = CDec(totaleva2.Text) + 5
        Else
            Trato = Trato - (5 / 12)
            totaleva2.Text = CDec(totaleva2.Text) - 5
        End If
        traTotal.Text = Math.Round(Trato, 2)
        'f9.Text = Math.Round(liquidacio, 2)
        Try
            total.Text = CDec(lictotal.Text) + CDec(tartotal.Text) + CDec(unitotal.Text) + CDec(limtotal.Text) + CDec(vuetotal.Text) + CDec(turtotal.Text) + CDec(fretotal.Text) + CDec(dictotal.Text) + CDec(liqtotal.Text) + CDec(renTotal.Text) + CDec(cuiTotal.Text) + CDec(manTotal.Text) + CDec(traTotal.Text) + CDec(ponTotal.Text)
            'f10.Text = CDec(lictotal.Text) + CDec(tartotal.Text) + CDec(unitotal.Text) + CDec(limtotal.Text) + CDec(vuetotal.Text) + CDec(turtotal.Text) + CDec(fretotal.Text) + CDec(dictotal.Text) + CDec(liqtotal.Text) + CDec(renTotal.Text) + CDec(cuiTotal.Text) + CDec(manTotal.Text) + CDec(traTotal.Text) + CDec(ponTotal.Text)

        Catch ex As Exception

        End Try
    End Sub
    Private Sub tra3_ToggleStateChanged(ByVal sender As System.Object, ByVal args As Telerik.WinControls.UI.StateChangedEventArgs) Handles tra3.ToggleStateChanged
        If tra3.Checked = True Then
            Trato = Trato + (5 / 12)
            totaleva3.Text = CDec(totaleva3.Text) + 5
        Else
            Trato = Trato - (5 / 12)
            totaleva3.Text = CDec(totaleva3.Text) - 5
        End If
        traTotal.Text = Math.Round(Trato, 2)
        'f9.Text = Math.Round(liquidacio, 2)
        Try
            total.Text = CDec(lictotal.Text) + CDec(tartotal.Text) + CDec(unitotal.Text) + CDec(limtotal.Text) + CDec(vuetotal.Text) + CDec(turtotal.Text) + CDec(fretotal.Text) + CDec(dictotal.Text) + CDec(liqtotal.Text) + CDec(renTotal.Text) + CDec(cuiTotal.Text) + CDec(manTotal.Text) + CDec(traTotal.Text) + CDec(ponTotal.Text)
            'f10.Text = CDec(lictotal.Text) + CDec(tartotal.Text) + CDec(unitotal.Text) + CDec(limtotal.Text) + CDec(vuetotal.Text) + CDec(turtotal.Text) + CDec(fretotal.Text) + CDec(dictotal.Text) + CDec(liqtotal.Text) + CDec(renTotal.Text) + CDec(cuiTotal.Text) + CDec(manTotal.Text) + CDec(traTotal.Text) + CDec(ponTotal.Text)

        Catch ex As Exception

        End Try
    End Sub
    Private Sub tra4_ToggleStateChanged(ByVal sender As System.Object, ByVal args As Telerik.WinControls.UI.StateChangedEventArgs) Handles tra4.ToggleStateChanged
        If tra4.Checked = True Then
            Trato = Trato + (5 / 12)
            totaleva4.Text = CDec(totaleva4.Text) + 5
        Else
            Trato = Trato - (5 / 12)
            totaleva4.Text = CDec(totaleva4.Text) - 5
        End If
        traTotal.Text = Math.Round(Trato, 2)
        'f9.Text = Math.Round(liquidacio, 2)
        Try
            total.Text = CDec(lictotal.Text) + CDec(tartotal.Text) + CDec(unitotal.Text) + CDec(limtotal.Text) + CDec(vuetotal.Text) + CDec(turtotal.Text) + CDec(fretotal.Text) + CDec(dictotal.Text) + CDec(liqtotal.Text) + CDec(renTotal.Text) + CDec(cuiTotal.Text) + CDec(manTotal.Text) + CDec(traTotal.Text) + CDec(ponTotal.Text)
            'f10.Text = CDec(lictotal.Text) + CDec(tartotal.Text) + CDec(unitotal.Text) + CDec(limtotal.Text) + CDec(vuetotal.Text) + CDec(turtotal.Text) + CDec(fretotal.Text) + CDec(dictotal.Text) + CDec(liqtotal.Text) + CDec(renTotal.Text) + CDec(cuiTotal.Text) + CDec(manTotal.Text) + CDec(traTotal.Text) + CDec(ponTotal.Text)

        Catch ex As Exception

        End Try
    End Sub
    Private Sub tra5_ToggleStateChanged(ByVal sender As System.Object, ByVal args As Telerik.WinControls.UI.StateChangedEventArgs) Handles tra5.ToggleStateChanged
        If tra5.Checked = True Then
            Trato = Trato + (5 / 12)
            totaleva5.Text = CDec(totaleva5.Text) + 5
        Else
            Trato = Trato - (5 / 12)
            totaleva5.Text = CDec(totaleva5.Text) - 5
        End If
        traTotal.Text = Math.Round(Trato, 2)
        'f9.Text = Math.Round(liquidacio, 2)
        Try
            total.Text = CDec(lictotal.Text) + CDec(tartotal.Text) + CDec(unitotal.Text) + CDec(limtotal.Text) + CDec(vuetotal.Text) + CDec(turtotal.Text) + CDec(fretotal.Text) + CDec(dictotal.Text) + CDec(liqtotal.Text) + CDec(renTotal.Text) + CDec(cuiTotal.Text) + CDec(manTotal.Text) + CDec(traTotal.Text) + CDec(ponTotal.Text)
            'f10.Text = CDec(lictotal.Text) + CDec(tartotal.Text) + CDec(unitotal.Text) + CDec(limtotal.Text) + CDec(vuetotal.Text) + CDec(turtotal.Text) + CDec(fretotal.Text) + CDec(dictotal.Text) + CDec(liqtotal.Text) + CDec(renTotal.Text) + CDec(cuiTotal.Text) + CDec(manTotal.Text) + CDec(traTotal.Text) + CDec(ponTotal.Text)

        Catch ex As Exception

        End Try
    End Sub
    Private Sub tra6_ToggleStateChanged(ByVal sender As System.Object, ByVal args As Telerik.WinControls.UI.StateChangedEventArgs) Handles tra6.ToggleStateChanged
        If tra6.Checked = True Then
            Trato = Trato + (5 / 12)
            totaleva6.Text = CDec(totaleva6.Text) + 5
        Else
            Trato = Trato - (5 / 12)
            totaleva6.Text = CDec(totaleva6.Text) - 5
        End If
        traTotal.Text = Math.Round(Trato, 2)
        'f9.Text = Math.Round(liquidacio, 2)
        Try
            total.Text = CDec(lictotal.Text) + CDec(tartotal.Text) + CDec(unitotal.Text) + CDec(limtotal.Text) + CDec(vuetotal.Text) + CDec(turtotal.Text) + CDec(fretotal.Text) + CDec(dictotal.Text) + CDec(liqtotal.Text) + CDec(renTotal.Text) + CDec(cuiTotal.Text) + CDec(manTotal.Text) + CDec(traTotal.Text) + CDec(ponTotal.Text)
            'f10.Text = CDec(lictotal.Text) + CDec(tartotal.Text) + CDec(unitotal.Text) + CDec(limtotal.Text) + CDec(vuetotal.Text) + CDec(turtotal.Text) + CDec(fretotal.Text) + CDec(dictotal.Text) + CDec(liqtotal.Text) + CDec(renTotal.Text) + CDec(cuiTotal.Text) + CDec(manTotal.Text) + CDec(traTotal.Text) + CDec(ponTotal.Text)

        Catch ex As Exception

        End Try
    End Sub
    Private Sub tra7_ToggleStateChanged(ByVal sender As System.Object, ByVal args As Telerik.WinControls.UI.StateChangedEventArgs) Handles tra7.ToggleStateChanged
        If tra7.Checked = True Then
            Trato = Trato + (5 / 12)
            totaleva7.Text = CDec(totaleva7.Text) + 5
        Else
            Trato = Trato - (5 / 12)
            totaleva7.Text = CDec(totaleva7.Text) - 5
        End If
        traTotal.Text = Math.Round(Trato, 2)
        'f9.Text = Math.Round(liquidacio, 2)
        Try
            total.Text = CDec(lictotal.Text) + CDec(tartotal.Text) + CDec(unitotal.Text) + CDec(limtotal.Text) + CDec(vuetotal.Text) + CDec(turtotal.Text) + CDec(fretotal.Text) + CDec(dictotal.Text) + CDec(liqtotal.Text) + CDec(renTotal.Text) + CDec(cuiTotal.Text) + CDec(manTotal.Text) + CDec(traTotal.Text) + CDec(ponTotal.Text)
            'f10.Text = CDec(lictotal.Text) + CDec(tartotal.Text) + CDec(unitotal.Text) + CDec(limtotal.Text) + CDec(vuetotal.Text) + CDec(turtotal.Text) + CDec(fretotal.Text) + CDec(dictotal.Text) + CDec(liqtotal.Text) + CDec(renTotal.Text) + CDec(cuiTotal.Text) + CDec(manTotal.Text) + CDec(traTotal.Text) + CDec(ponTotal.Text)

        Catch ex As Exception

        End Try
    End Sub
    Private Sub tra8_ToggleStateChanged(ByVal sender As System.Object, ByVal args As Telerik.WinControls.UI.StateChangedEventArgs) Handles tra8.ToggleStateChanged
        If tra8.Checked = True Then
            Trato = Trato + (5 / 12)
            totaleva8.Text = CDec(totaleva8.Text) + 5
        Else
            Trato = Trato - (5 / 12)
            totaleva8.Text = CDec(totaleva8.Text) - 5
        End If
        traTotal.Text = Math.Round(Trato, 2)
        'f9.Text = Math.Round(liquidacio, 2)
        Try
            total.Text = CDec(lictotal.Text) + CDec(tartotal.Text) + CDec(unitotal.Text) + CDec(limtotal.Text) + CDec(vuetotal.Text) + CDec(turtotal.Text) + CDec(fretotal.Text) + CDec(dictotal.Text) + CDec(liqtotal.Text) + CDec(renTotal.Text) + CDec(cuiTotal.Text) + CDec(manTotal.Text) + CDec(traTotal.Text) + CDec(ponTotal.Text)
            'f10.Text = CDec(lictotal.Text) + CDec(tartotal.Text) + CDec(unitotal.Text) + CDec(limtotal.Text) + CDec(vuetotal.Text) + CDec(turtotal.Text) + CDec(fretotal.Text) + CDec(dictotal.Text) + CDec(liqtotal.Text) + CDec(renTotal.Text) + CDec(cuiTotal.Text) + CDec(manTotal.Text) + CDec(traTotal.Text) + CDec(ponTotal.Text)

        Catch ex As Exception

        End Try
    End Sub
    Private Sub tra9_ToggleStateChanged(ByVal sender As System.Object, ByVal args As Telerik.WinControls.UI.StateChangedEventArgs) Handles tra9.ToggleStateChanged
        If tra9.Checked = True Then
            Trato = Trato + (5 / 12)
            totaleva9.Text = CDec(totaleva9.Text) + 5
        Else
            Trato = Trato - (5 / 12)
            totaleva9.Text = CDec(totaleva9.Text) - 5
        End If
        traTotal.Text = Math.Round(Trato, 2)
        'f9.Text = Math.Round(liquidacio, 2)
        Try
            total.Text = CDec(lictotal.Text) + CDec(tartotal.Text) + CDec(unitotal.Text) + CDec(limtotal.Text) + CDec(vuetotal.Text) + CDec(turtotal.Text) + CDec(fretotal.Text) + CDec(dictotal.Text) + CDec(liqtotal.Text) + CDec(renTotal.Text) + CDec(cuiTotal.Text) + CDec(manTotal.Text) + CDec(traTotal.Text) + CDec(ponTotal.Text)
            'f10.Text = CDec(lictotal.Text) + CDec(tartotal.Text) + CDec(unitotal.Text) + CDec(limtotal.Text) + CDec(vuetotal.Text) + CDec(turtotal.Text) + CDec(fretotal.Text) + CDec(dictotal.Text) + CDec(liqtotal.Text) + CDec(renTotal.Text) + CDec(cuiTotal.Text) + CDec(manTotal.Text) + CDec(traTotal.Text) + CDec(ponTotal.Text)

        Catch ex As Exception

        End Try
    End Sub
    Private Sub tra10_ToggleStateChanged(ByVal sender As System.Object, ByVal args As Telerik.WinControls.UI.StateChangedEventArgs) Handles tra10.ToggleStateChanged
        If tra10.Checked = True Then
            Trato = Trato + (5 / 12)
            totaleva10.Text = CDec(totaleva10.Text) + 5
        Else
            Trato = Trato - (5 / 12)
            totaleva10.Text = CDec(totaleva10.Text) - 5
        End If
        traTotal.Text = Math.Round(Trato, 2)
        'f9.Text = Math.Round(liquidacio, 2)
        Try
            total.Text = CDec(lictotal.Text) + CDec(tartotal.Text) + CDec(unitotal.Text) + CDec(limtotal.Text) + CDec(vuetotal.Text) + CDec(turtotal.Text) + CDec(fretotal.Text) + CDec(dictotal.Text) + CDec(liqtotal.Text) + CDec(renTotal.Text) + CDec(cuiTotal.Text) + CDec(manTotal.Text) + CDec(traTotal.Text) + CDec(ponTotal.Text)
            'f10.Text = CDec(lictotal.Text) + CDec(tartotal.Text) + CDec(unitotal.Text) + CDec(limtotal.Text) + CDec(vuetotal.Text) + CDec(turtotal.Text) + CDec(fretotal.Text) + CDec(dictotal.Text) + CDec(liqtotal.Text) + CDec(renTotal.Text) + CDec(cuiTotal.Text) + CDec(manTotal.Text) + CDec(traTotal.Text) + CDec(ponTotal.Text)

        Catch ex As Exception

        End Try
    End Sub
    Private Sub tra11_ToggleStateChanged(ByVal sender As System.Object, ByVal args As Telerik.WinControls.UI.StateChangedEventArgs) Handles tra11.ToggleStateChanged
        If tra11.Checked = True Then
            Trato = Trato + (5 / 12)
            totaleva11.Text = CDec(totaleva11.Text) + 5
        Else
            Trato = Trato - (5 / 12)
            totaleva11.Text = CDec(totaleva11.Text) - 5
        End If
        traTotal.Text = Math.Round(Trato, 2)
        'f9.Text = Math.Round(liquidacio, 2)
        Try
            total.Text = CDec(lictotal.Text) + CDec(tartotal.Text) + CDec(unitotal.Text) + CDec(limtotal.Text) + CDec(vuetotal.Text) + CDec(turtotal.Text) + CDec(fretotal.Text) + CDec(dictotal.Text) + CDec(liqtotal.Text) + CDec(renTotal.Text) + CDec(cuiTotal.Text) + CDec(manTotal.Text) + CDec(traTotal.Text) + CDec(ponTotal.Text)
            'f10.Text = CDec(lictotal.Text) + CDec(tartotal.Text) + CDec(unitotal.Text) + CDec(limtotal.Text) + CDec(vuetotal.Text) + CDec(turtotal.Text) + CDec(fretotal.Text) + CDec(dictotal.Text) + CDec(liqtotal.Text) + CDec(renTotal.Text) + CDec(cuiTotal.Text) + CDec(manTotal.Text) + CDec(traTotal.Text) + CDec(ponTotal.Text)

        Catch ex As Exception

        End Try
    End Sub
    Private Sub tra12_ToggleStateChanged(ByVal sender As System.Object, ByVal args As Telerik.WinControls.UI.StateChangedEventArgs) Handles tra12.ToggleStateChanged
        If tra12.Checked = True Then
            Trato = Trato + (5 / 12)
            totaleva12.Text = CDec(totaleva12.Text) + 5
        Else
            Trato = Trato - (5 / 12)
            totaleva12.Text = CDec(totaleva12.Text) - 5
        End If
        traTotal.Text = Math.Round(Trato, 2)
        'f9.Text = Math.Round(liquidacio, 2)
        Try
            total.Text = CDec(lictotal.Text) + CDec(tartotal.Text) + CDec(unitotal.Text) + CDec(limtotal.Text) + CDec(vuetotal.Text) + CDec(turtotal.Text) + CDec(fretotal.Text) + CDec(dictotal.Text) + CDec(liqtotal.Text) + CDec(renTotal.Text) + CDec(cuiTotal.Text) + CDec(manTotal.Text) + CDec(traTotal.Text) + CDec(ponTotal.Text)
            'f10.Text = CDec(lictotal.Text) + CDec(tartotal.Text) + CDec(unitotal.Text) + CDec(limtotal.Text) + CDec(vuetotal.Text) + CDec(turtotal.Text) + CDec(fretotal.Text) + CDec(dictotal.Text) + CDec(liqtotal.Text) + CDec(renTotal.Text) + CDec(cuiTotal.Text) + CDec(manTotal.Text) + CDec(traTotal.Text) + CDec(ponTotal.Text)

        Catch ex As Exception

        End Try
    End Sub
    Private Sub pon1_ToggleStateChanged(ByVal sender As System.Object, ByVal args As Telerik.WinControls.UI.StateChangedEventArgs) Handles pon1.ToggleStateChanged
        If pon1.Checked = True Then
            Disponibilidad = Disponibilidad + (10 / 12)
            totaleva1.Text = CDec(totaleva1.Text) + 10
        Else
            Disponibilidad = Disponibilidad - (10 / 12)
            totaleva1.Text = CDec(totaleva1.Text) - 10
        End If
        ponTotal.Text = Math.Round(Disponibilidad, 2)
        'f9.Text = Math.Round(liquidacio, 2)
        Try
            total.Text = CDec(lictotal.Text) + CDec(tartotal.Text) + CDec(unitotal.Text) + CDec(limtotal.Text) + CDec(vuetotal.Text) + CDec(turtotal.Text) + CDec(fretotal.Text) + CDec(dictotal.Text) + CDec(liqtotal.Text) + CDec(renTotal.Text) + CDec(cuiTotal.Text) + CDec(manTotal.Text) + CDec(traTotal.Text) + CDec(ponTotal.Text)
            'f10.Text = CDec(lictotal.Text) + CDec(tartotal.Text) + CDec(unitotal.Text) + CDec(limtotal.Text) + CDec(vuetotal.Text) + CDec(turtotal.Text) + CDec(fretotal.Text) + CDec(dictotal.Text) + CDec(liqtotal.Text) + CDec(renTotal.Text) + CDec(cuiTotal.Text) + CDec(manTotal.Text) + CDec(traTotal.Text) + CDec(ponTotal.Text)

        Catch ex As Exception

        End Try
    End Sub
    Private Sub pon2_ToggleStateChanged(ByVal sender As System.Object, ByVal args As Telerik.WinControls.UI.StateChangedEventArgs) Handles pon2.ToggleStateChanged
        If pon2.Checked = True Then
            Disponibilidad = Disponibilidad + (10 / 12)
            totaleva2.Text = CDec(totaleva2.Text) + 10
        Else
            Disponibilidad = Disponibilidad - (10 / 12)
            totaleva2.Text = CDec(totaleva2.Text) - 10
        End If
        ponTotal.Text = Math.Round(Disponibilidad, 2)
        'f9.Text = Math.Round(liquidacio, 2)
        Try
            total.Text = CDec(lictotal.Text) + CDec(tartotal.Text) + CDec(unitotal.Text) + CDec(limtotal.Text) + CDec(vuetotal.Text) + CDec(turtotal.Text) + CDec(fretotal.Text) + CDec(dictotal.Text) + CDec(liqtotal.Text) + CDec(renTotal.Text) + CDec(cuiTotal.Text) + CDec(manTotal.Text) + CDec(traTotal.Text) + CDec(ponTotal.Text)
            'f10.Text = CDec(lictotal.Text) + CDec(tartotal.Text) + CDec(unitotal.Text) + CDec(limtotal.Text) + CDec(vuetotal.Text) + CDec(turtotal.Text) + CDec(fretotal.Text) + CDec(dictotal.Text) + CDec(liqtotal.Text) + CDec(renTotal.Text) + CDec(cuiTotal.Text) + CDec(manTotal.Text) + CDec(traTotal.Text) + CDec(ponTotal.Text)

        Catch ex As Exception

        End Try
    End Sub
    Private Sub pon3_ToggleStateChanged(ByVal sender As System.Object, ByVal args As Telerik.WinControls.UI.StateChangedEventArgs) Handles pon3.ToggleStateChanged
        If pon3.Checked = True Then
            Disponibilidad = Disponibilidad + (10 / 12)
            totaleva3.Text = CDec(totaleva3.Text) + 10
        Else
            Disponibilidad = Disponibilidad - (10 / 12)
            totaleva3.Text = CDec(totaleva3.Text) - 10
        End If
        ponTotal.Text = Math.Round(Disponibilidad, 2)
        'f9.Text = Math.Round(liquidacio, 2)
        Try
            total.Text = CDec(lictotal.Text) + CDec(tartotal.Text) + CDec(unitotal.Text) + CDec(limtotal.Text) + CDec(vuetotal.Text) + CDec(turtotal.Text) + CDec(fretotal.Text) + CDec(dictotal.Text) + CDec(liqtotal.Text) + CDec(renTotal.Text) + CDec(cuiTotal.Text) + CDec(manTotal.Text) + CDec(traTotal.Text) + CDec(ponTotal.Text)
            'f10.Text = CDec(lictotal.Text) + CDec(tartotal.Text) + CDec(unitotal.Text) + CDec(limtotal.Text) + CDec(vuetotal.Text) + CDec(turtotal.Text) + CDec(fretotal.Text) + CDec(dictotal.Text) + CDec(liqtotal.Text) + CDec(renTotal.Text) + CDec(cuiTotal.Text) + CDec(manTotal.Text) + CDec(traTotal.Text) + CDec(ponTotal.Text)

        Catch ex As Exception

        End Try
    End Sub
    Private Sub pon4_ToggleStateChanged(ByVal sender As System.Object, ByVal args As Telerik.WinControls.UI.StateChangedEventArgs) Handles pon4.ToggleStateChanged
        If pon4.Checked = True Then
            Disponibilidad = Disponibilidad + (10 / 12)
            totaleva4.Text = CDec(totaleva4.Text) + 10
        Else
            Disponibilidad = Disponibilidad - (10 / 12)
            totaleva4.Text = CDec(totaleva4.Text) - 10
        End If
        ponTotal.Text = Math.Round(Disponibilidad, 2)
        'f9.Text = Math.Round(liquidacio, 2)
        Try
            total.Text = CDec(lictotal.Text) + CDec(tartotal.Text) + CDec(unitotal.Text) + CDec(limtotal.Text) + CDec(vuetotal.Text) + CDec(turtotal.Text) + CDec(fretotal.Text) + CDec(dictotal.Text) + CDec(liqtotal.Text) + CDec(renTotal.Text) + CDec(cuiTotal.Text) + CDec(manTotal.Text) + CDec(traTotal.Text) + CDec(ponTotal.Text)
            'f10.Text = CDec(lictotal.Text) + CDec(tartotal.Text) + CDec(unitotal.Text) + CDec(limtotal.Text) + CDec(vuetotal.Text) + CDec(turtotal.Text) + CDec(fretotal.Text) + CDec(dictotal.Text) + CDec(liqtotal.Text) + CDec(renTotal.Text) + CDec(cuiTotal.Text) + CDec(manTotal.Text) + CDec(traTotal.Text) + CDec(ponTotal.Text)

        Catch ex As Exception

        End Try
    End Sub
    Private Sub pon5_ToggleStateChanged(ByVal sender As System.Object, ByVal args As Telerik.WinControls.UI.StateChangedEventArgs) Handles pon5.ToggleStateChanged
        If pon5.Checked = True Then
            Disponibilidad = Disponibilidad + (10 / 12)
            totaleva5.Text = CDec(totaleva5.Text) + 10
        Else
            Disponibilidad = Disponibilidad - (10 / 12)
            totaleva5.Text = CDec(totaleva5.Text) - 10
        End If
        ponTotal.Text = Math.Round(Disponibilidad, 2)
        'f9.Text = Math.Round(liquidacio, 2)
        Try
            total.Text = CDec(lictotal.Text) + CDec(tartotal.Text) + CDec(unitotal.Text) + CDec(limtotal.Text) + CDec(vuetotal.Text) + CDec(turtotal.Text) + CDec(fretotal.Text) + CDec(dictotal.Text) + CDec(liqtotal.Text) + CDec(renTotal.Text) + CDec(cuiTotal.Text) + CDec(manTotal.Text) + CDec(traTotal.Text) + CDec(ponTotal.Text)
            'f10.Text = CDec(lictotal.Text) + CDec(tartotal.Text) + CDec(unitotal.Text) + CDec(limtotal.Text) + CDec(vuetotal.Text) + CDec(turtotal.Text) + CDec(fretotal.Text) + CDec(dictotal.Text) + CDec(liqtotal.Text) + CDec(renTotal.Text) + CDec(cuiTotal.Text) + CDec(manTotal.Text) + CDec(traTotal.Text) + CDec(ponTotal.Text)

        Catch ex As Exception

        End Try
    End Sub
    Private Sub pon6_ToggleStateChanged(ByVal sender As System.Object, ByVal args As Telerik.WinControls.UI.StateChangedEventArgs) Handles pon6.ToggleStateChanged
        If pon6.Checked = True Then
            Disponibilidad = Disponibilidad + (10 / 12)
            totaleva6.Text = CDec(totaleva6.Text) + 10
        Else
            Disponibilidad = Disponibilidad - (10 / 12)
            totaleva6.Text = CDec(totaleva6.Text) - 10
        End If
        ponTotal.Text = Math.Round(Disponibilidad, 2)
        'f9.Text = Math.Round(liquidacio, 2)
        Try
            total.Text = CDec(lictotal.Text) + CDec(tartotal.Text) + CDec(unitotal.Text) + CDec(limtotal.Text) + CDec(vuetotal.Text) + CDec(turtotal.Text) + CDec(fretotal.Text) + CDec(dictotal.Text) + CDec(liqtotal.Text) + CDec(renTotal.Text) + CDec(cuiTotal.Text) + CDec(manTotal.Text) + CDec(traTotal.Text) + CDec(ponTotal.Text)
            'f10.Text = CDec(lictotal.Text) + CDec(tartotal.Text) + CDec(unitotal.Text) + CDec(limtotal.Text) + CDec(vuetotal.Text) + CDec(turtotal.Text) + CDec(fretotal.Text) + CDec(dictotal.Text) + CDec(liqtotal.Text) + CDec(renTotal.Text) + CDec(cuiTotal.Text) + CDec(manTotal.Text) + CDec(traTotal.Text) + CDec(ponTotal.Text)

        Catch ex As Exception

        End Try
    End Sub
    Private Sub pon7_ToggleStateChanged(ByVal sender As System.Object, ByVal args As Telerik.WinControls.UI.StateChangedEventArgs) Handles pon7.ToggleStateChanged
        If pon7.Checked = True Then
            Disponibilidad = Disponibilidad + (10 / 12)
            totaleva7.Text = CDec(totaleva7.Text) + 10
        Else
            Disponibilidad = Disponibilidad - (10 / 12)
            totaleva7.Text = CDec(totaleva7.Text) - 10
        End If
        ponTotal.Text = Math.Round(Disponibilidad, 2)
        'f9.Text = Math.Round(liquidacio, 2)
        Try
            total.Text = CDec(lictotal.Text) + CDec(tartotal.Text) + CDec(unitotal.Text) + CDec(limtotal.Text) + CDec(vuetotal.Text) + CDec(turtotal.Text) + CDec(fretotal.Text) + CDec(dictotal.Text) + CDec(liqtotal.Text) + CDec(renTotal.Text) + CDec(cuiTotal.Text) + CDec(manTotal.Text) + CDec(traTotal.Text) + CDec(ponTotal.Text)
            'f10.Text = CDec(lictotal.Text) + CDec(tartotal.Text) + CDec(unitotal.Text) + CDec(limtotal.Text) + CDec(vuetotal.Text) + CDec(turtotal.Text) + CDec(fretotal.Text) + CDec(dictotal.Text) + CDec(liqtotal.Text) + CDec(renTotal.Text) + CDec(cuiTotal.Text) + CDec(manTotal.Text) + CDec(traTotal.Text) + CDec(ponTotal.Text)

        Catch ex As Exception

        End Try
    End Sub
    Private Sub pon8_ToggleStateChanged(ByVal sender As System.Object, ByVal args As Telerik.WinControls.UI.StateChangedEventArgs) Handles pon8.ToggleStateChanged
        If pon8.Checked = True Then
            Disponibilidad = Disponibilidad + (10 / 12)
            totaleva8.Text = CDec(totaleva8.Text) + 10
        Else
            Disponibilidad = Disponibilidad - (10 / 12)
            totaleva8.Text = CDec(totaleva8.Text) - 10
        End If
        ponTotal.Text = Math.Round(Disponibilidad, 2)
        'f9.Text = Math.Round(liquidacio, 2)
        Try
            total.Text = CDec(lictotal.Text) + CDec(tartotal.Text) + CDec(unitotal.Text) + CDec(limtotal.Text) + CDec(vuetotal.Text) + CDec(turtotal.Text) + CDec(fretotal.Text) + CDec(dictotal.Text) + CDec(liqtotal.Text) + CDec(renTotal.Text) + CDec(cuiTotal.Text) + CDec(manTotal.Text) + CDec(traTotal.Text) + CDec(ponTotal.Text)
            'f10.Text = CDec(lictotal.Text) + CDec(tartotal.Text) + CDec(unitotal.Text) + CDec(limtotal.Text) + CDec(vuetotal.Text) + CDec(turtotal.Text) + CDec(fretotal.Text) + CDec(dictotal.Text) + CDec(liqtotal.Text) + CDec(renTotal.Text) + CDec(cuiTotal.Text) + CDec(manTotal.Text) + CDec(traTotal.Text) + CDec(ponTotal.Text)

        Catch ex As Exception

        End Try
    End Sub
    Private Sub pon9_ToggleStateChanged(ByVal sender As System.Object, ByVal args As Telerik.WinControls.UI.StateChangedEventArgs) Handles pon9.ToggleStateChanged
        If pon9.Checked = True Then
            Disponibilidad = Disponibilidad + (10 / 12)
            totaleva9.Text = CDec(totaleva9.Text) + 10
        Else
            Disponibilidad = Disponibilidad - (10 / 12)
            totaleva9.Text = CDec(totaleva9.Text) - 10
        End If
        ponTotal.Text = Math.Round(Disponibilidad, 2)
        'f9.Text = Math.Round(liquidacio, 2)
        Try
            total.Text = CDec(lictotal.Text) + CDec(tartotal.Text) + CDec(unitotal.Text) + CDec(limtotal.Text) + CDec(vuetotal.Text) + CDec(turtotal.Text) + CDec(fretotal.Text) + CDec(dictotal.Text) + CDec(liqtotal.Text) + CDec(renTotal.Text) + CDec(cuiTotal.Text) + CDec(manTotal.Text) + CDec(traTotal.Text) + CDec(ponTotal.Text)
            'f10.Text = CDec(lictotal.Text) + CDec(tartotal.Text) + CDec(unitotal.Text) + CDec(limtotal.Text) + CDec(vuetotal.Text) + CDec(turtotal.Text) + CDec(fretotal.Text) + CDec(dictotal.Text) + CDec(liqtotal.Text) + CDec(renTotal.Text) + CDec(cuiTotal.Text) + CDec(manTotal.Text) + CDec(traTotal.Text) + CDec(ponTotal.Text)

        Catch ex As Exception

        End Try
    End Sub
    Private Sub pon10_ToggleStateChanged(ByVal sender As System.Object, ByVal args As Telerik.WinControls.UI.StateChangedEventArgs) Handles pon10.ToggleStateChanged
        If pon10.Checked = True Then
            Disponibilidad = Disponibilidad + (10 / 12)
            totaleva10.Text = CDec(totaleva10.Text) + 10
        Else
            Disponibilidad = Disponibilidad - (10 / 12)
            totaleva10.Text = CDec(totaleva10.Text) - 10
        End If
        ponTotal.Text = Math.Round(Disponibilidad, 2)
        'f9.Text = Math.Round(liquidacio, 2)
        Try
            total.Text = CDec(lictotal.Text) + CDec(tartotal.Text) + CDec(unitotal.Text) + CDec(limtotal.Text) + CDec(vuetotal.Text) + CDec(turtotal.Text) + CDec(fretotal.Text) + CDec(dictotal.Text) + CDec(liqtotal.Text) + CDec(renTotal.Text) + CDec(cuiTotal.Text) + CDec(manTotal.Text) + CDec(traTotal.Text) + CDec(ponTotal.Text)
            'f10.Text = CDec(lictotal.Text) + CDec(tartotal.Text) + CDec(unitotal.Text) + CDec(limtotal.Text) + CDec(vuetotal.Text) + CDec(turtotal.Text) + CDec(fretotal.Text) + CDec(dictotal.Text) + CDec(liqtotal.Text) + CDec(renTotal.Text) + CDec(cuiTotal.Text) + CDec(manTotal.Text) + CDec(traTotal.Text) + CDec(ponTotal.Text)

        Catch ex As Exception

        End Try
    End Sub
    Private Sub pon11_ToggleStateChanged(ByVal sender As System.Object, ByVal args As Telerik.WinControls.UI.StateChangedEventArgs) Handles pon11.ToggleStateChanged
        If pon1.Checked = True Then
            Disponibilidad = Disponibilidad + (10 / 12)
            totaleva11.Text = CDec(totaleva11.Text) + 10
        Else
            Disponibilidad = Disponibilidad - (10 / 12)
            totaleva11.Text = CDec(totaleva11.Text) - 10
        End If
        ponTotal.Text = Math.Round(Disponibilidad, 2)
        'f9.Text = Math.Round(liquidacio, 2)
        Try
            total.Text = CDec(lictotal.Text) + CDec(tartotal.Text) + CDec(unitotal.Text) + CDec(limtotal.Text) + CDec(vuetotal.Text) + CDec(turtotal.Text) + CDec(fretotal.Text) + CDec(dictotal.Text) + CDec(liqtotal.Text) + CDec(renTotal.Text) + CDec(cuiTotal.Text) + CDec(manTotal.Text) + CDec(traTotal.Text) + CDec(ponTotal.Text)
            'f10.Text = CDec(lictotal.Text) + CDec(tartotal.Text) + CDec(unitotal.Text) + CDec(limtotal.Text) + CDec(vuetotal.Text) + CDec(turtotal.Text) + CDec(fretotal.Text) + CDec(dictotal.Text) + CDec(liqtotal.Text) + CDec(renTotal.Text) + CDec(cuiTotal.Text) + CDec(manTotal.Text) + CDec(traTotal.Text) + CDec(ponTotal.Text)

        Catch ex As Exception

        End Try
    End Sub
    Private Sub pon12_ToggleStateChanged(ByVal sender As System.Object, ByVal args As Telerik.WinControls.UI.StateChangedEventArgs) Handles pon12.ToggleStateChanged
        If pon12.Checked = True Then
            Disponibilidad = Disponibilidad + (10 / 12)
            totaleva12.Text = CDec(totaleva12.Text) + 10
        Else
            Disponibilidad = Disponibilidad - (10 / 12)
            totaleva12.Text = CDec(totaleva12.Text) - 10
        End If
        ponTotal.Text = Math.Round(Disponibilidad, 2)
        'f9.Text = Math.Round(liquidacio, 2)
        Try
            total.Text = CDec(lictotal.Text) + CDec(tartotal.Text) + CDec(unitotal.Text) + CDec(limtotal.Text) + CDec(vuetotal.Text) + CDec(turtotal.Text) + CDec(fretotal.Text) + CDec(dictotal.Text) + CDec(liqtotal.Text) + CDec(renTotal.Text) + CDec(cuiTotal.Text) + CDec(manTotal.Text) + CDec(traTotal.Text) + CDec(ponTotal.Text)
            'f10.Text = CDec(lictotal.Text) + CDec(tartotal.Text) + CDec(unitotal.Text) + CDec(limtotal.Text) + CDec(vuetotal.Text) + CDec(turtotal.Text) + CDec(fretotal.Text) + CDec(dictotal.Text) + CDec(liqtotal.Text) + CDec(renTotal.Text) + CDec(cuiTotal.Text) + CDec(manTotal.Text) + CDec(traTotal.Text) + CDec(ponTotal.Text)

        Catch ex As Exception

        End Try
    End Sub
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)

    End Sub

    Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)


    End Sub

    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)


    End Sub
    Sub periodo1()
        If eva1.Checked = True Then
            EvaDetalle.idEvaluacionDetalle = (BuscarIntDatoCitra("SELECT MAX(IdEvaluacionDetalle) as Id FROM EvaluacionDetalle")) + 1
            EvaDetalle.Evaluacion = 1
            EvaDetalle.Mes = Me.lstMeses.Text
            EvaDetalle.Anio = Me.txtAnio.Text
            If lic1.Checked = True Then
                EvaDetalle.Licencia = 1
            Else
                EvaDetalle.Licencia = 0
            End If

            If tar1.Checked = True Then
                EvaDetalle.Tarjeton = 1
            Else
                EvaDetalle.Tarjeton = 0
            End If

            If uni1.Checked = True Then
                EvaDetalle.Uniforme = 1
            Else
                EvaDetalle.Uniforme = 0
            End If

            If lim1.Checked = True Then
                EvaDetalle.Limpieza = 1
            Else
                EvaDetalle.Limpieza = 0
            End If

            If vue1.Checked = True Then
                EvaDetalle.Vueltas = 1
            Else
                EvaDetalle.Vueltas = 0
            End If

            If tur1.Checked = True Then
                EvaDetalle.Turnos = 1
            Else
                EvaDetalle.Turnos = 0
            End If

            If fre1.Checked = True Then
                EvaDetalle.Frecuencia = 1
            Else
                EvaDetalle.Frecuencia = 0
            End If

            If dic1.Checked = True Then
                EvaDetalle.Disciplina = 1
            Else
                EvaDetalle.Disciplina = 0
            End If

            If liq1.Checked = True Then
                EvaDetalle.Liquidacion = 1
            Else
                EvaDetalle.Liquidacion = 0
            End If
            If ren1.Checked = True Then
                EvaDetalle.Rendimiento = 1
            Else
                EvaDetalle.Rendimiento = 0
            End If
            If cui1.Checked = True Then
                EvaDetalle.Cuidado = 1
            Else
                EvaDetalle.Cuidado = 0
            End If
            If man1.Checked = True Then
                EvaDetalle.Manejo = 1
            Else
                EvaDetalle.Manejo = 0
            End If
            If tra1.Checked = True Then
                EvaDetalle.Trato = 1
            Else
                EvaDetalle.Trato = 0
            End If
            If pon1.Checked = True Then
                EvaDetalle.Disponibilidad = 1
            Else
                EvaDetalle.Disponibilidad = 0
            End If

            EvaDetalle.IDEmpleado = Trim(EmpleadoID)
            EvaDetalle.Insertar()
        End If
    End Sub
    Sub periodo2()
        If eva2.Checked = True Then
            EvaDetalle.idEvaluacionDetalle = (BuscarIntDatoCitra("SELECT MAX(IdEvaluacionDetalle) as Id FROM EvaluacionDetalle")) + 1
            EvaDetalle.Evaluacion = 2
            EvaDetalle.Mes = Me.lstMeses.Text
            EvaDetalle.Anio = Me.txtAnio.Text
            If lic2.Checked = True Then
                EvaDetalle.Licencia = 1
            Else
                EvaDetalle.Licencia = 0
            End If

            If tar2.Checked = True Then
                EvaDetalle.Tarjeton = 1
            Else
                EvaDetalle.Tarjeton = 0
            End If

            If uni2.Checked = True Then
                EvaDetalle.Uniforme = 1
            Else
                EvaDetalle.Uniforme = 0
            End If

            If lim2.Checked = True Then
                EvaDetalle.Limpieza = 1
            Else
                EvaDetalle.Limpieza = 0
            End If

            If vue2.Checked = True Then
                EvaDetalle.Vueltas = 1
            Else
                EvaDetalle.Vueltas = 0
            End If

            If tur2.Checked = True Then
                EvaDetalle.Turnos = 1
            Else
                EvaDetalle.Turnos = 0
            End If

            If frec2.Checked = True Then
                EvaDetalle.Frecuencia = 1
            Else
                EvaDetalle.Frecuencia = 0
            End If

            If dic2.Checked = True Then
                EvaDetalle.Disciplina = 1
            Else
                EvaDetalle.Disciplina = 0
            End If

            If liq2.Checked = True Then
                EvaDetalle.Liquidacion = 1
            Else
                EvaDetalle.Liquidacion = 0
            End If
            If ren2.Checked = True Then
                EvaDetalle.Rendimiento = 1
            Else
                EvaDetalle.Rendimiento = 0
            End If
            If cui2.Checked = True Then
                EvaDetalle.Cuidado = 1
            Else
                EvaDetalle.Cuidado = 0
            End If
            If man2.Checked = True Then
                EvaDetalle.Manejo = 1
            Else
                EvaDetalle.Manejo = 0
            End If
            If tra2.Checked = True Then
                EvaDetalle.Trato = 1
            Else
                EvaDetalle.Trato = 0
            End If
            If pon2.Checked = True Then
                EvaDetalle.Disponibilidad = 1
            Else
                EvaDetalle.Disponibilidad = 0
            End If
            EvaDetalle.IDEmpleado = Trim(EmpleadoID)
            EvaDetalle.Insertar()

        End If
    End Sub
    Sub periodo3()
        If eva3.Checked = True Then
            EvaDetalle.idEvaluacionDetalle = (BuscarIntDatoCitra("SELECT MAX(IdEvaluacionDetalle) as Id FROM EvaluacionDetalle")) + 1
            EvaDetalle.Evaluacion = 3
            EvaDetalle.Mes = Me.lstMeses.Text
            EvaDetalle.Anio = Me.txtAnio.Text
            If lic3.Checked = True Then
                EvaDetalle.Licencia = 1
            Else
                EvaDetalle.Licencia = 0
            End If

            If tar3.Checked = True Then
                EvaDetalle.Tarjeton = 1
            Else
                EvaDetalle.Tarjeton = 0
            End If

            If uni3.Checked = True Then
                EvaDetalle.Uniforme = 1
            Else
                EvaDetalle.Uniforme = 0
            End If

            If lim3.Checked = True Then
                EvaDetalle.Limpieza = 1
            Else
                EvaDetalle.Limpieza = 0
            End If

            If vue3.Checked = True Then
                EvaDetalle.Vueltas = 1
            Else
                EvaDetalle.Vueltas = 0
            End If

            If tur3.Checked = True Then
                EvaDetalle.Turnos = 1
            Else
                EvaDetalle.Turnos = 0
            End If

            If fre3.Checked = True Then
                EvaDetalle.Frecuencia = 1
            Else
                EvaDetalle.Frecuencia = 0
            End If

            If dic3.Checked = True Then
                EvaDetalle.Disciplina = 1
            Else
                EvaDetalle.Disciplina = 0
            End If

            If liq3.Checked = True Then
                EvaDetalle.Liquidacion = 1
            Else
                EvaDetalle.Liquidacion = 0
            End If
            If ren3.Checked = True Then
                EvaDetalle.Rendimiento = 1
            Else
                EvaDetalle.Rendimiento = 0
            End If
            If cui3.Checked = True Then
                EvaDetalle.Cuidado = 1
            Else
                EvaDetalle.Cuidado = 0
            End If
            If man3.Checked = True Then
                EvaDetalle.Manejo = 1
            Else
                EvaDetalle.Manejo = 0
            End If
            If tra3.Checked = True Then
                EvaDetalle.Trato = 1
            Else
                EvaDetalle.Trato = 0
            End If
            If pon3.Checked = True Then
                EvaDetalle.Disponibilidad = 1
            Else
                EvaDetalle.Disponibilidad = 0
            End If
            EvaDetalle.IDEmpleado = Trim(EmpleadoID)
            EvaDetalle.Insertar()

        End If
    End Sub
    Sub periodo4()
        If eva4.Checked = True Then
            EvaDetalle.idEvaluacionDetalle = (BuscarIntDatoCitra("SELECT MAX(IdEvaluacionDetalle) as Id FROM EvaluacionDetalle")) + 1
            EvaDetalle.Evaluacion = 4
            EvaDetalle.Mes = Me.lstMeses.Text
            EvaDetalle.Anio = Me.txtAnio.Text
            If lic4.Checked = True Then
                EvaDetalle.Licencia = 1
            Else
                EvaDetalle.Licencia = 0
            End If

            If tar4.Checked = True Then
                EvaDetalle.Tarjeton = 1
            Else
                EvaDetalle.Tarjeton = 0
            End If

            If uni4.Checked = True Then
                EvaDetalle.Uniforme = 1
            Else
                EvaDetalle.Uniforme = 0
            End If

            If lim4.Checked = True Then
                EvaDetalle.Limpieza = 1
            Else
                EvaDetalle.Limpieza = 0
            End If

            If vue4.Checked = True Then
                EvaDetalle.Vueltas = 1
            Else
                EvaDetalle.Vueltas = 0
            End If

            If tur4.Checked = True Then
                EvaDetalle.Turnos = 1
            Else
                EvaDetalle.Turnos = 0
            End If

            If fre4.Checked = True Then
                EvaDetalle.Frecuencia = 1
            Else
                EvaDetalle.Frecuencia = 0
            End If

            If dic4.Checked = True Then
                EvaDetalle.Disciplina = 1
            Else
                EvaDetalle.Disciplina = 0
            End If

            If liq4.Checked = True Then
                EvaDetalle.Liquidacion = 1
            Else
                EvaDetalle.Liquidacion = 0
            End If
            If ren4.Checked = True Then
                EvaDetalle.Rendimiento = 1
            Else
                EvaDetalle.Rendimiento = 0
            End If
            If cui4.Checked = True Then
                EvaDetalle.Cuidado = 1
            Else
                EvaDetalle.Cuidado = 0
            End If
            If man4.Checked = True Then
                EvaDetalle.Manejo = 1
            Else
                EvaDetalle.Manejo = 0
            End If
            If tra4.Checked = True Then
                EvaDetalle.Trato = 1
            Else
                EvaDetalle.Trato = 0
            End If
            If pon4.Checked = True Then
                EvaDetalle.Disponibilidad = 1
            Else
                EvaDetalle.Disponibilidad = 0
            End If
            EvaDetalle.IDEmpleado = Trim(EmpleadoID)
            EvaDetalle.Insertar()

        End If
    End Sub
    Sub periodo5()
        If eva5.Checked = True Then
            EvaDetalle.idEvaluacionDetalle = (BuscarIntDatoCitra("SELECT MAX(IdEvaluacionDetalle) as Id FROM EvaluacionDetalle")) + 1
            EvaDetalle.Evaluacion = 5
            EvaDetalle.Mes = Me.lstMeses.Text
            EvaDetalle.Anio = Me.txtAnio.Text
            If lic5.Checked = True Then
                EvaDetalle.Licencia = 1
            Else
                EvaDetalle.Licencia = 0
            End If

            If tar5.Checked = True Then
                EvaDetalle.Tarjeton = 1
            Else
                EvaDetalle.Tarjeton = 0
            End If

            If uni5.Checked = True Then
                EvaDetalle.Uniforme = 1
            Else
                EvaDetalle.Uniforme = 0
            End If

            If lim5.Checked = True Then
                EvaDetalle.Limpieza = 1
            Else
                EvaDetalle.Limpieza = 0
            End If

            If vue5.Checked = True Then
                EvaDetalle.Vueltas = 1
            Else
                EvaDetalle.Vueltas = 0
            End If

            If tur5.Checked = True Then
                EvaDetalle.Turnos = 1
            Else
                EvaDetalle.Turnos = 0
            End If

            If fre5.Checked = True Then
                EvaDetalle.Frecuencia = 1
            Else
                EvaDetalle.Frecuencia = 0
            End If

            If dic5.Checked = True Then
                EvaDetalle.Disciplina = 1
            Else
                EvaDetalle.Disciplina = 0
            End If

            If liq5.Checked = True Then
                EvaDetalle.Liquidacion = 1
            Else
                EvaDetalle.Liquidacion = 0
            End If
            If ren5.Checked = True Then
                EvaDetalle.Rendimiento = 1
            Else
                EvaDetalle.Rendimiento = 0
            End If
            If cui5.Checked = True Then
                EvaDetalle.Cuidado = 1
            Else
                EvaDetalle.Cuidado = 0
            End If
            If man5.Checked = True Then
                EvaDetalle.Manejo = 1
            Else
                EvaDetalle.Manejo = 0
            End If
            If tra5.Checked = True Then
                EvaDetalle.Trato = 1
            Else
                EvaDetalle.Trato = 0
            End If
            If pon5.Checked = True Then
                EvaDetalle.Disponibilidad = 1
            Else
                EvaDetalle.Disponibilidad = 0
            End If
            EvaDetalle.IDEmpleado = Trim(EmpleadoID)
            EvaDetalle.Insertar()

        End If
    End Sub
    Sub periodo6()
        If eva6.Checked = True Then
            EvaDetalle.idEvaluacionDetalle = (BuscarIntDatoCitra("SELECT MAX(IdEvaluacionDetalle) as Id FROM EvaluacionDetalle")) + 1
            EvaDetalle.Evaluacion = 6
            EvaDetalle.Mes = Me.lstMeses.Text
            EvaDetalle.Anio = Me.txtAnio.Text
            If lic6.Checked = True Then
                EvaDetalle.Licencia = 1
            Else
                EvaDetalle.Licencia = 0
            End If

            If tar6.Checked = True Then
                EvaDetalle.Tarjeton = 1
            Else
                EvaDetalle.Tarjeton = 0
            End If

            If uni6.Checked = True Then
                EvaDetalle.Uniforme = 1
            Else
                EvaDetalle.Uniforme = 0
            End If

            If lim6.Checked = True Then
                EvaDetalle.Limpieza = 1
            Else
                EvaDetalle.Limpieza = 0
            End If

            If vue6.Checked = True Then
                EvaDetalle.Vueltas = 1
            Else
                EvaDetalle.Vueltas = 0
            End If

            If tur6.Checked = True Then
                EvaDetalle.Turnos = 1
            Else
                EvaDetalle.Turnos = 0
            End If

            If fre6.Checked = True Then
                EvaDetalle.Frecuencia = 1
            Else
                EvaDetalle.Frecuencia = 0
            End If

            If dic6.Checked = True Then
                EvaDetalle.Disciplina = 1
            Else
                EvaDetalle.Disciplina = 0
            End If

            If liq6.Checked = True Then
                EvaDetalle.Liquidacion = 1
            Else
                EvaDetalle.Liquidacion = 0
            End If
            If ren6.Checked = True Then
                EvaDetalle.Rendimiento = 1
            Else
                EvaDetalle.Rendimiento = 0
            End If
            If cui6.Checked = True Then
                EvaDetalle.Cuidado = 1
            Else
                EvaDetalle.Cuidado = 0
            End If
            If man6.Checked = True Then
                EvaDetalle.Manejo = 1
            Else
                EvaDetalle.Manejo = 0
            End If
            If tra6.Checked = True Then
                EvaDetalle.Trato = 1
            Else
                EvaDetalle.Trato = 0
            End If
            If pon6.Checked = True Then
                EvaDetalle.Disponibilidad = 1
            Else
                EvaDetalle.Disponibilidad = 0
            End If
            EvaDetalle.IDEmpleado = Trim(EmpleadoID)
            EvaDetalle.Insertar()

        End If
    End Sub
    Sub periodo7()
        If eva7.Checked = True Then
            EvaDetalle.idEvaluacionDetalle = (BuscarIntDatoCitra("SELECT MAX(IdEvaluacionDetalle) as Id FROM EvaluacionDetalle")) + 1
            EvaDetalle.Evaluacion = 7
            EvaDetalle.Mes = Me.lstMeses.Text
            EvaDetalle.Anio = Me.txtAnio.Text
            If lic7.Checked = True Then
                EvaDetalle.Licencia = 1
            Else
                EvaDetalle.Licencia = 0
            End If

            If tar7.Checked = True Then
                EvaDetalle.Tarjeton = 1
            Else
                EvaDetalle.Tarjeton = 0
            End If

            If uni7.Checked = True Then
                EvaDetalle.Uniforme = 1
            Else
                EvaDetalle.Uniforme = 0
            End If

            If lim7.Checked = True Then
                EvaDetalle.Limpieza = 1
            Else
                EvaDetalle.Limpieza = 0
            End If

            If vue7.Checked = True Then
                EvaDetalle.Vueltas = 1
            Else
                EvaDetalle.Vueltas = 0
            End If

            If tur7.Checked = True Then
                EvaDetalle.Turnos = 1
            Else
                EvaDetalle.Turnos = 0
            End If

            If fre7.Checked = True Then
                EvaDetalle.Frecuencia = 1
            Else
                EvaDetalle.Frecuencia = 0
            End If

            If dic7.Checked = True Then
                EvaDetalle.Disciplina = 1
            Else
                EvaDetalle.Disciplina = 0
            End If

            If liq7.Checked = True Then
                EvaDetalle.Liquidacion = 1
            Else
                EvaDetalle.Liquidacion = 0
            End If
            If ren7.Checked = True Then
                EvaDetalle.Rendimiento = 1
            Else
                EvaDetalle.Rendimiento = 0
            End If
            If cui7.Checked = True Then
                EvaDetalle.Cuidado = 1
            Else
                EvaDetalle.Cuidado = 0
            End If
            If man7.Checked = True Then
                EvaDetalle.Manejo = 1
            Else
                EvaDetalle.Manejo = 0
            End If
            If tra7.Checked = True Then
                EvaDetalle.Trato = 1
            Else
                EvaDetalle.Trato = 0
            End If
            If pon7.Checked = True Then
                EvaDetalle.Disponibilidad = 1
            Else
                EvaDetalle.Disponibilidad = 0
            End If
            EvaDetalle.IDEmpleado = Trim(EmpleadoID)
            EvaDetalle.Insertar()

        End If
    End Sub
    Sub periodo8()
        If eva8.Checked = True Then
            EvaDetalle.idEvaluacionDetalle = (BuscarIntDatoCitra("SELECT MAX(IdEvaluacionDetalle) as Id FROM EvaluacionDetalle")) + 1
            EvaDetalle.Evaluacion = 8
            EvaDetalle.Mes = Me.lstMeses.Text
            EvaDetalle.Anio = Me.txtAnio.Text
            If lic8.Checked = True Then
                EvaDetalle.Licencia = 1
            Else
                EvaDetalle.Licencia = 0
            End If

            If tar8.Checked = True Then
                EvaDetalle.Tarjeton = 1
            Else
                EvaDetalle.Tarjeton = 0
            End If

            If uni8.Checked = True Then
                EvaDetalle.Uniforme = 1
            Else
                EvaDetalle.Uniforme = 0
            End If

            If lim8.Checked = True Then
                EvaDetalle.Limpieza = 1
            Else
                EvaDetalle.Limpieza = 0
            End If

            If vue8.Checked = True Then
                EvaDetalle.Vueltas = 1
            Else
                EvaDetalle.Vueltas = 0
            End If

            If tur8.Checked = True Then
                EvaDetalle.Turnos = 1
            Else
                EvaDetalle.Turnos = 0
            End If

            If fre8.Checked = True Then
                EvaDetalle.Frecuencia = 1
            Else
                EvaDetalle.Frecuencia = 0
            End If

            If dic8.Checked = True Then
                EvaDetalle.Disciplina = 1
            Else
                EvaDetalle.Disciplina = 0
            End If

            If liq8.Checked = True Then
                EvaDetalle.Liquidacion = 1
            Else
                EvaDetalle.Liquidacion = 0
            End If
            If ren8.Checked = True Then
                EvaDetalle.Rendimiento = 1
            Else
                EvaDetalle.Rendimiento = 0
            End If
            If cui8.Checked = True Then
                EvaDetalle.Cuidado = 1
            Else
                EvaDetalle.Cuidado = 0
            End If
            If man8.Checked = True Then
                EvaDetalle.Manejo = 1
            Else
                EvaDetalle.Manejo = 0
            End If
            If tra8.Checked = True Then
                EvaDetalle.Trato = 1
            Else
                EvaDetalle.Trato = 0
            End If
            If pon8.Checked = True Then
                EvaDetalle.Disponibilidad = 1
            Else
                EvaDetalle.Disponibilidad = 0
            End If
            EvaDetalle.IDEmpleado = Trim(EmpleadoID)
            EvaDetalle.Insertar()

        End If
    End Sub
    Sub periodo9()
        If eva9.Checked = True Then
            EvaDetalle.idEvaluacionDetalle = (BuscarIntDatoCitra("SELECT MAX(IdEvaluacionDetalle) as Id FROM EvaluacionDetalle")) + 1
            EvaDetalle.Evaluacion = 9
            EvaDetalle.Mes = Me.lstMeses.Text
            EvaDetalle.Anio = Me.txtAnio.Text
            If lic9.Checked = True Then
                EvaDetalle.Licencia = 1
            Else
                EvaDetalle.Licencia = 0
            End If

            If tar9.Checked = True Then
                EvaDetalle.Tarjeton = 1
            Else
                EvaDetalle.Tarjeton = 0
            End If

            If uni9.Checked = True Then
                EvaDetalle.Uniforme = 1
            Else
                EvaDetalle.Uniforme = 0
            End If

            If lim9.Checked = True Then
                EvaDetalle.Limpieza = 1
            Else
                EvaDetalle.Limpieza = 0
            End If

            If vue9.Checked = True Then
                EvaDetalle.Vueltas = 1
            Else
                EvaDetalle.Vueltas = 0
            End If

            If tur9.Checked = True Then
                EvaDetalle.Turnos = 1
            Else
                EvaDetalle.Turnos = 0
            End If

            If fre9.Checked = True Then
                EvaDetalle.Frecuencia = 1
            Else
                EvaDetalle.Frecuencia = 0
            End If

            If dic9.Checked = True Then
                EvaDetalle.Disciplina = 1
            Else
                EvaDetalle.Disciplina = 0
            End If

            If liq9.Checked = True Then
                EvaDetalle.Liquidacion = 1
            Else
                EvaDetalle.Liquidacion = 0
            End If
            If ren9.Checked = True Then
                EvaDetalle.Rendimiento = 1
            Else
                EvaDetalle.Rendimiento = 0
            End If
            If cui9.Checked = True Then
                EvaDetalle.Cuidado = 1
            Else
                EvaDetalle.Cuidado = 0
            End If
            If man9.Checked = True Then
                EvaDetalle.Manejo = 1
            Else
                EvaDetalle.Manejo = 0
            End If
            If tra9.Checked = True Then
                EvaDetalle.Trato = 1
            Else
                EvaDetalle.Trato = 0
            End If
            If pon9.Checked = True Then
                EvaDetalle.Disponibilidad = 1
            Else
                EvaDetalle.Disponibilidad = 0
            End If
            EvaDetalle.IDEmpleado = Trim(EmpleadoID)
            EvaDetalle.Insertar()

        End If
    End Sub
    Sub periodo10()
        If eva10.Checked = True Then
            EvaDetalle.idEvaluacionDetalle = (BuscarIntDatoCitra("SELECT MAX(IdEvaluacionDetalle) as Id FROM EvaluacionDetalle")) + 1
            EvaDetalle.Evaluacion = 10
            EvaDetalle.Mes = Me.lstMeses.Text
            EvaDetalle.Anio = Me.txtAnio.Text
            If lic10.Checked = True Then
                EvaDetalle.Licencia = 1
            Else
                EvaDetalle.Licencia = 0
            End If

            If tar10.Checked = True Then
                EvaDetalle.Tarjeton = 1
            Else
                EvaDetalle.Tarjeton = 0
            End If

            If uni10.Checked = True Then
                EvaDetalle.Uniforme = 1
            Else
                EvaDetalle.Uniforme = 0
            End If

            If lim10.Checked = True Then
                EvaDetalle.Limpieza = 1
            Else
                EvaDetalle.Limpieza = 0
            End If

            If vue10.Checked = True Then
                EvaDetalle.Vueltas = 1
            Else
                EvaDetalle.Vueltas = 0
            End If

            If tur10.Checked = True Then
                EvaDetalle.Turnos = 1
            Else
                EvaDetalle.Turnos = 0
            End If

            If fre10.Checked = True Then
                EvaDetalle.Frecuencia = 1
            Else
                EvaDetalle.Frecuencia = 0
            End If

            If dic10.Checked = True Then
                EvaDetalle.Disciplina = 1
            Else
                EvaDetalle.Disciplina = 0
            End If

            If liq10.Checked = True Then
                EvaDetalle.Liquidacion = 1
            Else
                EvaDetalle.Liquidacion = 0
            End If
            If ren10.Checked = True Then
                EvaDetalle.Rendimiento = 1
            Else
                EvaDetalle.Rendimiento = 0
            End If
            If cui10.Checked = True Then
                EvaDetalle.Cuidado = 1
            Else
                EvaDetalle.Cuidado = 0
            End If
            If man10.Checked = True Then
                EvaDetalle.Manejo = 1
            Else
                EvaDetalle.Manejo = 0
            End If
            If tra10.Checked = True Then
                EvaDetalle.Trato = 1
            Else
                EvaDetalle.Trato = 0
            End If
            If pon10.Checked = True Then
                EvaDetalle.Disponibilidad = 1
            Else
                EvaDetalle.Disponibilidad = 0
            End If
            EvaDetalle.IDEmpleado = Trim(EmpleadoID)
            EvaDetalle.Insertar()

        End If
    End Sub
    Sub periodo11()
        If eva11.Checked = True Then
            EvaDetalle.idEvaluacionDetalle = (BuscarIntDatoCitra("SELECT MAX(IdEvaluacionDetalle) as Id FROM EvaluacionDetalle")) + 1
            EvaDetalle.Evaluacion = 11
            EvaDetalle.Mes = Me.lstMeses.Text
            EvaDetalle.Anio = Me.txtAnio.Text
            If lic11.Checked = True Then
                EvaDetalle.Licencia = 1
            Else
                EvaDetalle.Licencia = 0
            End If

            If tar11.Checked = True Then
                EvaDetalle.Tarjeton = 1
            Else
                EvaDetalle.Tarjeton = 0
            End If

            If uni11.Checked = True Then
                EvaDetalle.Uniforme = 1
            Else
                EvaDetalle.Uniforme = 0
            End If

            If lim11.Checked = True Then
                EvaDetalle.Limpieza = 1
            Else
                EvaDetalle.Limpieza = 0
            End If

            If vue11.Checked = True Then
                EvaDetalle.Vueltas = 1
            Else
                EvaDetalle.Vueltas = 0
            End If

            If tur11.Checked = True Then
                EvaDetalle.Turnos = 1
            Else
                EvaDetalle.Turnos = 0
            End If

            If fre11.Checked = True Then
                EvaDetalle.Frecuencia = 1
            Else
                EvaDetalle.Frecuencia = 0
            End If

            If dic11.Checked = True Then
                EvaDetalle.Disciplina = 1
            Else
                EvaDetalle.Disciplina = 0
            End If

            If liq11.Checked = True Then
                EvaDetalle.Liquidacion = 1
            Else
                EvaDetalle.Liquidacion = 0
            End If
            If ren11.Checked = True Then
                EvaDetalle.Rendimiento = 1
            Else
                EvaDetalle.Rendimiento = 0
            End If
            If cui11.Checked = True Then
                EvaDetalle.Cuidado = 1
            Else
                EvaDetalle.Cuidado = 0
            End If
            If man11.Checked = True Then
                EvaDetalle.Manejo = 1
            Else
                EvaDetalle.Manejo = 0
            End If
            If tra11.Checked = True Then
                EvaDetalle.Trato = 1
            Else
                EvaDetalle.Trato = 0
            End If
            If pon11.Checked = True Then
                EvaDetalle.Disponibilidad = 1
            Else
                EvaDetalle.Disponibilidad = 0
            End If
            EvaDetalle.IDEmpleado = Trim(EmpleadoID)
            EvaDetalle.Insertar()

        End If
    End Sub
    Sub periodo12()
        If eva12.Checked = True Then
            EvaDetalle.idEvaluacionDetalle = (BuscarIntDatoCitra("SELECT MAX(IdEvaluacionDetalle) as Id FROM EvaluacionDetalle")) + 1
            EvaDetalle.Evaluacion = 12
            EvaDetalle.Mes = Me.lstMeses.Text
            EvaDetalle.Anio = Me.txtAnio.Text
            If lic12.Checked = True Then
                EvaDetalle.Licencia = 1
            Else
                EvaDetalle.Licencia = 0
            End If

            If tar12.Checked = True Then
                EvaDetalle.Tarjeton = 1
            Else
                EvaDetalle.Tarjeton = 0
            End If

            If uni12.Checked = True Then
                EvaDetalle.Uniforme = 1
            Else
                EvaDetalle.Uniforme = 0
            End If

            If lim12.Checked = True Then
                EvaDetalle.Limpieza = 1
            Else
                EvaDetalle.Limpieza = 0
            End If

            If vue12.Checked = True Then
                EvaDetalle.Vueltas = 1
            Else
                EvaDetalle.Vueltas = 0
            End If

            If tur12.Checked = True Then
                EvaDetalle.Turnos = 1
            Else
                EvaDetalle.Turnos = 0
            End If

            If fre12.Checked = True Then
                EvaDetalle.Frecuencia = 1
            Else
                EvaDetalle.Frecuencia = 0
            End If

            If dic12.Checked = True Then
                EvaDetalle.Disciplina = 1
            Else
                EvaDetalle.Disciplina = 0
            End If

            If liq12.Checked = True Then
                EvaDetalle.Liquidacion = 1
            Else
                EvaDetalle.Liquidacion = 0
            End If
            If ren12.Checked = True Then
                EvaDetalle.Rendimiento = 1
            Else
                EvaDetalle.Rendimiento = 0
            End If
            If cui12.Checked = True Then
                EvaDetalle.Cuidado = 1
            Else
                EvaDetalle.Cuidado = 0
            End If
            If man12.Checked = True Then
                EvaDetalle.Manejo = 1
            Else
                EvaDetalle.Manejo = 0
            End If
            If tra12.Checked = True Then
                EvaDetalle.Trato = 1
            Else
                EvaDetalle.Trato = 0
            End If
            If pon12.Checked = True Then
                EvaDetalle.Disponibilidad = 1
            Else
                EvaDetalle.Disponibilidad = 0
            End If
            EvaDetalle.IDEmpleado = Trim(EmpleadoID)
            EvaDetalle.Insertar()

        End If
    End Sub
    Sub totales()
        EvaTotales.idEvaluacionTotales = (BuscarIntDatoCitra("SELECT MAX(IdEvaluacionTotales) as Id FROM EvaluacionTotales")) + 1
        EvaTotales.Evaluacion = 0
        EvaTotales.Mes = Me.lstMeses.Text
        EvaTotales.Anio = Me.txtAnio.Text
        EvaTotales.Licencia = CDec(lictotal.Text)
        EvaTotales.Tarjeton = CDec(tartotal.Text)
        EvaTotales.Uniforme = CDec(unitotal.Text)
        EvaTotales.Limpieza = CDec(limtotal.Text)
        EvaTotales.Vueltas = CDec(vuetotal.Text)
        EvaTotales.Turnos = CDec(turtotal.Text)
        EvaTotales.Frecuencia = CDec(fretotal.Text)
        EvaTotales.Disciplina = CDec(dictotal.Text)
        EvaTotales.Liquidacion = CDec(liqtotal.Text)
        EvaTotales.Total = CDec(total.Text)
        EvaTotales.IDEmpleado = Trim(EmpleadoID)
        EvaTotales.Rendimiento = CDec(renTotal.Text)
        EvaTotales.Cuidado = CDec(cuiTotal.Text)
        EvaTotales.Manejo = CDec(manTotal.Text)
        EvaTotales.Trato = CDec(traTotal.Text)
        EvaTotales.Disponibilidad = CDec(ponTotal.Text)
        EvaTotales.Insertar()
    End Sub
    Sub ActualizaEvaluacion()
        limpia()



        Dim cnConn As New SqlConnection
        cnConn.ConnectionString = CitraConnection

        Dim cmdBuscar As New SqlCommand
        cmdBuscar.Connection = cnConn
        cmdBuscar.CommandText = "SELECT * From EvaluacionDetalle " & _
        " WHERE idempleado=" & Trim(EmpleadoID) & " and mes='" & Me.lstMeses.Text & "' and anio=" & Me.txtAnio.Text & " order by evaluacion"
        Dim rdBuscar As SqlDataReader

        cnConn.Open()
        rdBuscar = cmdBuscar.ExecuteReader

        Dim licenciaB As Integer
        Dim tarjetonB As Integer
        Dim uniformeB As Integer
        Dim limpiezaB As Integer
        Dim vueltasB As Integer
        Dim turnosB As Integer
        Dim frecuenciaB As Integer
        Dim disciplinaB As Integer
        Dim liquidacionB As Integer
        Dim periodoB As Integer
        Dim RendimientoB As Integer
        Dim CuidadoB As Integer
        Dim ManejoB As Integer
        Dim TratoB As Integer
        Dim DisponibilidadB As Integer

        Do While rdBuscar.Read()
            IDEVALUACION = rdBuscar("IDEvaluacionDetalle")
            periodoB = rdBuscar("evaluacion")
            licenciaB = rdBuscar("licencia")
            tarjetonB = rdBuscar("tarjeton")
            uniformeB = rdBuscar("uniforme")
            limpiezaB = rdBuscar("limpieza")
            vueltasB = rdBuscar("vueltas")
            turnosB = rdBuscar("turnos")
            frecuenciaB = rdBuscar("frecuencia")
            disciplinaB = rdBuscar("disciplina")
            liquidacionB = rdBuscar("liquidacion")
            RendimientoB = rdBuscar("rendimiento")
            CuidadoB = rdBuscar("cuidado")
            ManejoB = rdBuscar("manejo")
            TratoB = rdBuscar("trato")
            DisponibilidadB = rdBuscar("disponibilidad")
            If periodoB = 1 Then
                eva1.Checked = True
                If licenciaB = 0 Then
                    lic1.Checked = False
                End If
                If tarjetonB = 0 Then
                    tar1.Checked = False
                End If
                If uniformeB = 0 Then
                    uni1.Checked = False
                End If
                If limpiezaB = 0 Then
                    lim1.Checked = False
                End If
                If vueltasB = 0 Then
                    vue1.Checked = False
                End If
                If turnosB = 0 Then
                    tur1.Checked = False
                End If
                If frecuenciaB = 0 Then
                    fre1.Checked = False
                End If
                If disciplinaB = 0 Then
                    dic1.Checked = False
                End If
                If liquidacionB = 0 Then
                    liq1.Checked = False
                End If
                If RendimientoB = 0 Then
                    ren1.Checked = False
                End If
                If CuidadoB = 0 Then
                    cui1.Checked = False
                End If
                If ManejoB = 0 Then
                    man1.Checked = False
                End If
                If TratoB = 0 Then
                    tra1.Checked = False
                End If
                If DisponibilidadB = 0 Then
                    pon1.Checked = False
                End If
            End If

            If periodoB = 2 Then
                eva2.Checked = True
                If licenciaB = 0 Then
                    lic2.Checked = False
                End If
                If tarjetonB = 0 Then
                    tar2.Checked = False
                End If
                If uniformeB = 0 Then
                    uni2.Checked = False
                End If
                If limpiezaB = 0 Then
                    lim2.Checked = False
                End If
                If vueltasB = 0 Then
                    vue2.Checked = False
                End If
                If turnosB = 0 Then
                    tur2.Checked = False
                End If
                If frecuenciaB = 0 Then
                    frec2.Checked = False
                End If
                If disciplinaB = 0 Then
                    dic2.Checked = False
                End If
                If liquidacionB = 0 Then
                    liq2.Checked = False
                End If
                If RendimientoB = 0 Then
                    ren2.Checked = False
                End If
                If CuidadoB = 0 Then
                    cui2.Checked = False
                End If
                If ManejoB = 0 Then
                    man2.Checked = False
                End If
                If TratoB = 0 Then
                    tra2.Checked = False
                End If
                If DisponibilidadB = 0 Then
                    pon2.Checked = False
                End If
            End If

            If periodoB = 3 Then
                eva3.Checked = True
                If licenciaB = 0 Then
                    lic3.Checked = False
                End If
                If tarjetonB = 0 Then
                    tar3.Checked = False
                End If
                If uniformeB = 0 Then
                    uni3.Checked = False
                End If
                If limpiezaB = 0 Then
                    lim3.Checked = False
                End If
                If vueltasB = 0 Then
                    vue3.Checked = False
                End If
                If turnosB = 0 Then
                    tur3.Checked = False
                End If
                If frecuenciaB = 0 Then
                    fre3.Checked = False
                End If
                If disciplinaB = 0 Then
                    dic3.Checked = False
                End If
                If liquidacionB = 0 Then
                    liq3.Checked = False
                End If
                If RendimientoB = 0 Then
                    ren3.Checked = False
                End If
                If CuidadoB = 0 Then
                    cui3.Checked = False
                End If
                If ManejoB = 0 Then
                    man3.Checked = False
                End If
                If TratoB = 0 Then
                    tra3.Checked = False
                End If
                If DisponibilidadB = 0 Then
                    pon3.Checked = False
                End If
            End If

            If periodoB = 4 Then
                eva4.Checked = True
                If licenciaB = 0 Then
                    lic4.Checked = False
                End If
                If tarjetonB = 0 Then
                    tar4.Checked = False
                End If
                If uniformeB = 0 Then
                    uni4.Checked = False
                End If
                If limpiezaB = 0 Then
                    lim4.Checked = False
                End If
                If vueltasB = 0 Then
                    vue4.Checked = False
                End If
                If turnosB = 0 Then
                    tur4.Checked = False
                End If
                If frecuenciaB = 0 Then
                    fre4.Checked = False
                End If
                If disciplinaB = 0 Then
                    dic4.Checked = False
                End If
                If liquidacionB = 0 Then
                    liq4.Checked = False
                End If
                If RendimientoB = 0 Then
                    ren4.Checked = False
                End If
                If CuidadoB = 0 Then
                    cui4.Checked = False
                End If
                If ManejoB = 0 Then
                    man4.Checked = False
                End If
                If TratoB = 0 Then
                    tra4.Checked = False
                End If
                If DisponibilidadB = 0 Then
                    pon4.Checked = False
                End If
            End If

            If periodoB = 5 Then
                eva5.Checked = True
                If licenciaB = 0 Then
                    lic5.Checked = False
                End If
                If tarjetonB = 0 Then
                    tar5.Checked = False
                End If
                If uniformeB = 0 Then
                    uni5.Checked = False
                End If
                If limpiezaB = 0 Then
                    lim5.Checked = False
                End If
                If vueltasB = 0 Then
                    vue5.Checked = False
                End If
                If turnosB = 0 Then
                    tur5.Checked = False
                End If
                If frecuenciaB = 0 Then
                    fre5.Checked = False
                End If
                If disciplinaB = 0 Then
                    dic5.Checked = False
                End If
                If liquidacionB = 0 Then
                    liq5.Checked = False
                End If
                If RendimientoB = 0 Then
                    ren5.Checked = False
                End If
                If CuidadoB = 0 Then
                    cui5.Checked = False
                End If
                If ManejoB = 0 Then
                    man5.Checked = False
                End If
                If TratoB = 0 Then
                    tra5.Checked = False
                End If
                If DisponibilidadB = 0 Then
                    pon5.Checked = False
                End If
            End If

            If periodoB = 6 Then
                eva6.Checked = True
                If licenciaB = 0 Then
                    lic6.Checked = False
                End If
                If tarjetonB = 0 Then
                    tar6.Checked = False
                End If
                If uniformeB = 0 Then
                    uni6.Checked = False
                End If
                If limpiezaB = 0 Then
                    lim6.Checked = False
                End If
                If vueltasB = 0 Then
                    vue6.Checked = False
                End If
                If turnosB = 0 Then
                    tur6.Checked = False
                End If
                If frecuenciaB = 0 Then
                    fre6.Checked = False
                End If
                If disciplinaB = 0 Then
                    dic6.Checked = False
                End If
                If liquidacionB = 0 Then
                    liq6.Checked = False
                End If
                If RendimientoB = 0 Then
                    ren6.Checked = False
                End If
                If CuidadoB = 0 Then
                    cui6.Checked = False
                End If
                If ManejoB = 0 Then
                    man6.Checked = False
                End If
                If TratoB = 0 Then
                    tra6.Checked = False
                End If
                If DisponibilidadB = 0 Then
                    pon6.Checked = False
                End If
            End If

            If periodoB = 7 Then
                eva7.Checked = True
                If licenciaB = 0 Then
                    lic7.Checked = False
                End If
                If tarjetonB = 0 Then
                    tar7.Checked = False
                End If
                If uniformeB = 0 Then
                    uni7.Checked = False
                End If
                If limpiezaB = 0 Then
                    lim7.Checked = False
                End If
                If vueltasB = 0 Then
                    vue7.Checked = False
                End If
                If turnosB = 0 Then
                    tur7.Checked = False
                End If
                If frecuenciaB = 0 Then
                    fre7.Checked = False
                End If
                If disciplinaB = 0 Then
                    dic7.Checked = False
                End If
                If liquidacionB = 0 Then
                    liq7.Checked = False
                End If
                If RendimientoB = 0 Then
                    ren7.Checked = False
                End If
                If CuidadoB = 0 Then
                    cui7.Checked = False
                End If
                If ManejoB = 0 Then
                    man7.Checked = False
                End If
                If TratoB = 0 Then
                    tra7.Checked = False
                End If
                If DisponibilidadB = 0 Then
                    pon7.Checked = False
                End If
            End If

            If periodoB = 8 Then
                eva8.Checked = True
                If licenciaB = 0 Then
                    lic8.Checked = False
                End If
                If tarjetonB = 0 Then
                    tar8.Checked = False
                End If
                If uniformeB = 0 Then
                    uni8.Checked = False
                End If
                If limpiezaB = 0 Then
                    lim8.Checked = False
                End If
                If vueltasB = 0 Then
                    vue8.Checked = False
                End If
                If turnosB = 0 Then
                    tur8.Checked = False
                End If
                If frecuenciaB = 0 Then
                    fre8.Checked = False
                End If
                If disciplinaB = 0 Then
                    dic8.Checked = False
                End If
                If liquidacionB = 0 Then
                    liq8.Checked = False
                End If
                If RendimientoB = 0 Then
                    ren8.Checked = False
                End If
                If CuidadoB = 0 Then
                    cui8.Checked = False
                End If
                If ManejoB = 0 Then
                    man8.Checked = False
                End If
                If TratoB = 0 Then
                    tra8.Checked = False
                End If
                If DisponibilidadB = 0 Then
                    pon8.Checked = False
                End If
            End If

            If periodoB = 9 Then
                eva9.Checked = True
                If licenciaB = 0 Then
                    lic9.Checked = False
                End If
                If tarjetonB = 0 Then
                    tar9.Checked = False
                End If
                If uniformeB = 0 Then
                    uni9.Checked = False
                End If
                If limpiezaB = 0 Then
                    lim9.Checked = False
                End If
                If vueltasB = 0 Then
                    vue9.Checked = False
                End If
                If turnosB = 0 Then
                    tur9.Checked = False
                End If
                If frecuenciaB = 0 Then
                    fre9.Checked = False
                End If
                If disciplinaB = 0 Then
                    dic9.Checked = False
                End If
                If liquidacionB = 0 Then
                    liq9.Checked = False
                End If
                If RendimientoB = 0 Then
                    ren9.Checked = False
                End If
                If CuidadoB = 0 Then
                    cui9.Checked = False
                End If
                If ManejoB = 0 Then
                    man9.Checked = False
                End If
                If TratoB = 0 Then
                    tra9.Checked = False
                End If
                If DisponibilidadB = 0 Then
                    pon9.Checked = False
                End If
            End If

            If periodoB = 10 Then
                eva10.Checked = True
                If licenciaB = 0 Then
                    lic10.Checked = False
                End If
                If tarjetonB = 0 Then
                    tar10.Checked = False
                End If
                If uniformeB = 0 Then
                    uni10.Checked = False
                End If
                If limpiezaB = 0 Then
                    lim10.Checked = False
                End If
                If vueltasB = 0 Then
                    vue10.Checked = False
                End If
                If turnosB = 0 Then
                    tur10.Checked = False
                End If
                If frecuenciaB = 0 Then
                    fre10.Checked = False
                End If
                If disciplinaB = 0 Then
                    dic10.Checked = False
                End If
                If liquidacionB = 0 Then
                    liq10.Checked = False
                End If
                If RendimientoB = 0 Then
                    ren10.Checked = False
                End If
                If CuidadoB = 0 Then
                    cui10.Checked = False
                End If
                If ManejoB = 0 Then
                    man10.Checked = False
                End If
                If TratoB = 0 Then
                    tra10.Checked = False
                End If
                If DisponibilidadB = 0 Then
                    pon10.Checked = False
                End If
            End If

            If periodoB = 11 Then
                eva11.Checked = True
                If licenciaB = 0 Then
                    lic11.Checked = False
                End If
                If tarjetonB = 0 Then
                    tar11.Checked = False
                End If
                If uniformeB = 0 Then
                    uni11.Checked = False
                End If
                If limpiezaB = 0 Then
                    lim11.Checked = False
                End If
                If vueltasB = 0 Then
                    vue11.Checked = False
                End If
                If turnosB = 0 Then
                    tur11.Checked = False
                End If
                If frecuenciaB = 0 Then
                    fre11.Checked = False
                End If
                If disciplinaB = 0 Then
                    dic11.Checked = False
                End If
                If liquidacionB = 0 Then
                    liq11.Checked = False
                End If
                If RendimientoB = 0 Then
                    ren11.Checked = False
                End If
                If CuidadoB = 0 Then
                    cui11.Checked = False
                End If
                If ManejoB = 0 Then
                    man11.Checked = False
                End If
                If TratoB = 0 Then
                    tra11.Checked = False
                End If
                If DisponibilidadB = 0 Then
                    pon11.Checked = False
                End If
            End If

            If periodoB = 12 Then
                eva12.Checked = True
                If licenciaB = 0 Then
                    lic12.Checked = False
                End If
                If tarjetonB = 0 Then
                    tar12.Checked = False
                End If
                If uniformeB = 0 Then
                    uni12.Checked = False
                End If
                If limpiezaB = 0 Then
                    lim12.Checked = False
                End If
                If vueltasB = 0 Then
                    vue12.Checked = False
                End If
                If turnosB = 0 Then
                    tur12.Checked = False
                End If
                If frecuenciaB = 0 Then
                    fre12.Checked = False
                End If
                If disciplinaB = 0 Then
                    dic12.Checked = False
                End If
                If liquidacionB = 0 Then
                    liq12.Checked = False
                End If
                If RendimientoB = 0 Then
                    ren12.Checked = False
                End If
                If CuidadoB = 0 Then
                    cui12.Checked = False
                End If
                If ManejoB = 0 Then
                    man12.Checked = False
                End If
                If TratoB = 0 Then
                    tra12.Checked = False
                End If
                If DisponibilidadB = 0 Then
                    pon12.Checked = False
                End If
            End If
        Loop

    End Sub
  
    Private Sub lstMeses_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles lstMeses.SelectedIndexChanged
        ActualizaEvaluacion()
    End Sub

    Private Sub lstMeses_SelectedValueChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles lstMeses.SelectedValueChanged
        ActualizaEvaluacion()
    End Sub
    Sub limpia()



        eva1.Checked = False
        eva2.Checked = False
        eva3.Checked = False
        eva4.Checked = False
        eva5.Checked = False
        eva6.Checked = False
        eva7.Checked = False
        eva8.Checked = False
        eva9.Checked = False
        eva10.Checked = False
        eva11.Checked = False
        eva12.Checked = False

        licencia = 0
        tarjeton = 0
        uniformes = 0
        limpieza = 0
        vueltas = 0
        turnos = 0
        frecuencia = 0
        disciplina = 0
        liquidacio = 0
        periodos = 0
        Rendimiento = 0
        Cuidado = 0
        Manejo = 0
        Trato = 0
        Disponibilidad = 0


        lictotal.Text = CDec(0.0)
        tartotal.Text = CDec(0.0)
        unitotal.Text = CDec(0.0)
        limtotal.Text = CDec(0.0)
        vuetotal.Text = CDec(0.0)
        turtotal.Text = CDec(0.0)
        fretotal.Text = CDec(0.0)
        dictotal.Text = CDec(0.0)
        liqtotal.Text = CDec(0.0)
        renTotal.Text = CDec(0.0)
        cuiTotal.Text = CDec(0.0)
        manTotal.Text = CDec(0.0)
        traTotal.Text = CDec(0.0)
        ponTotal.Text = CDec(0.0)
        total.Text = 0

        totaleva1.Text = 0
        totaleva2.Text = 0
        totaleva3.Text = 0
        totaleva4.Text = 0
        totaleva5.Text = 0
        totaleva6.Text = 0
        totaleva7.Text = 0
        totaleva8.Text = 0
        totaleva9.Text = 0
        totaleva10.Text = 0
        totaleva11.Text = 0
        totaleva12.Text = 0


        periodoR1 = False
        periodoR2 = False
        periodoR3 = False
        periodoR4 = False
        periodoR5 = False
        periodoR6 = False
        periodoR7 = False
        periodoR8 = False
        periodoR9 = False
        periodoR10 = False
        periodoR11 = False
        periodoR12 = False

    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)

    End Sub
   



    Private Sub ToolStripButton1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)

    End Sub

    Private Sub ToolStripButton2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)

    End Sub

    Private Sub toolGuardar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)

    End Sub

    Private Sub toolSalir_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
        Close()
    End Sub

    Private Sub ToolStripButton8_Click(sender As System.Object, e As System.EventArgs) Handles ToolStripButton8.Click
        If Me.lblNombre.Text = "" Then
            MsgBox("Debes indicar un empleado", MsgBoxStyle.Exclamation, "Aviso")
            Exit Sub
        End If
        If Me.lstMeses.Text = "" Then
            MsgBox("Debes indicar un mes", MsgBoxStyle.Exclamation, "Aviso")
            Exit Sub
        End If
        'Primero Borrar Anteriores
        EvaDetalle.IDEmpleado = Trim(EmpleadoID)
        EvaTotales.IDEmpleado = Trim(EmpleadoID)
        EvaDetalle.Mes = Me.lstMeses.Text
        EvaTotales.Mes = Me.lstMeses.Text
        EvaDetalle.Anio = Me.txtAnio.Text
        EvaTotales.Anio = Me.txtAnio.Text.Trim
        EvaDetalle.Borrar()
        EvaTotales.Borrar()

        If periodoR1 = True Then
            periodo1()
        End If
        If periodoR2 = True Then
            periodo2()
        End If
        If periodoR3 = True Then
            periodo3()
        End If
        If periodoR4 = True Then
            periodo4()
        End If
        If periodoR5 = True Then
            periodo5()
        End If
        If periodoR6 = True Then
            periodo6()
        End If
        If periodoR7 = True Then
            periodo7()
        End If
        If periodoR8 = True Then
            periodo8()
        End If
        If periodoR9 = True Then
            periodo9()
        End If
        If periodoR10 = True Then
            periodo10()
        End If
        If periodoR11 = True Then
            periodo11()
        End If
        If periodoR12 = True Then
            periodo12()
        End If
        totales()


        Dim EmpleadoSelect As String = BuscarStrDatoCitra("Empleados", "NombreCompleto", "IdEmpleado=" & EmpleadoID)
        'Registra actividad
        Bitacora.RegistraActividad("Realizó la evaluacion de dirección de transporte de " & EmpleadoSelect)
        MsgBox("Guardado Exitoso", MsgBoxStyle.Information, "Aviso")
    End Sub

    Private Sub ToolStripButton5_Click(sender As System.Object, e As System.EventArgs) Handles ToolStripButton5.Click
        cont2 = cont2 + 1
        If ((valorRowSelect.Index + cont) - (cont2)) < 0 Then
            MsgBox("No hay mas registros para mostrar en el filtro", MsgBoxStyle.Exclamation, "Aviso")
            cont2 = cont2 - 1
            Exit Sub
        End If


        EmpleadoID = frmModuloEmpleados.dgEmpleados.Rows((valorRowSelect.Index + cont) - (cont2)).Cells(0).Value.ToString.Trim
        Dim EmpleadoSelect As String = BuscarStrDatoCitra("Empleados", "NombreCompleto", "IdEmpleado=" & EmpleadoID)
        Me.lblNombre.Text = EmpleadoSelect
        ActualizaEvaluacion()
    End Sub

    Private Sub ToolStripButton7_Click(sender As System.Object, e As System.EventArgs) Handles ToolStripButton7.Click
        cont = cont + 1
        If cont - cont2 > limite Then
            MsgBox("No hay mas registros para mostrar en el filtro", MsgBoxStyle.Exclamation, "Aviso")
            cont = cont - 1
            Exit Sub
        End If
        EmpleadoID = frmModuloEmpleados.dgEmpleados.Rows((valorRowSelect.Index + cont) - (cont2)).Cells(0).Value.ToString.Trim
        Dim EmpleadoSelect As String = BuscarStrDatoCitra("Empleados", "NombreCompleto", "IdEmpleado=" & EmpleadoID)
        Me.lblNombre.Text = EmpleadoSelect
        ActualizaEvaluacion()
    End Sub

    Private Sub ToolStripButton4_Click(sender As System.Object, e As System.EventArgs) Handles ToolStripButton4.Click
        Close()

    End Sub
End Class